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ABSTRACT 


The goal of this presentation is to find original symmetric presentations of 
finite groups. It is frequently the case, that progenitors factored by appropriate relations 
produce simple and even sporadic groups as homomorphic images. We have discovered 
two of the twenty-six sporadic simple groups namely, Mj and J; and the Lie type 
group Suz(8). In addition several linear and classical groups will also be presented. 
We will present several progenitors including: 2*!* : 2? x 3: 2,2*4! : PSL9(11), and 
2*° : (5: 4) which have produced the homomorphic images: Mj : 2, J, x 2, and Suz(8) 
x 2. We will present the monomial progenitors: 17s, PGL2(9), a4 +. Zot Dx ond 
13*? :, (2? x 3) : 2 which produce the homomorphic images: 13? : ((2 x 13) : (2 x 3)), 
2x Sg, and (27)*PGL4(3). Once we have a presentation of a group we can verify the 
group’s existence through double coset enumeration. We will give proofs of isomorphism 


types of the presented images: $3 x PGL2(7) x Ss, 2° : As, and 2°U(2) : 2. 
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Introduction 


Group theory is a topic spanning many areas of mathematics. Group theory 
allows us to study symmetry, determine the solvability of n*” degree polynomials as 
Galois did in the 19% century, provides new perspectives on geometry and analysis, 
and even serves a purpose in a more recently discovered field of mathematics, matroid 
theory. Group theory has very intricate machinery capable of solving some of the most 


perplexing problems in mathematics through this notion of groups. 


A group is a set of elements which satisfy the four group axioms. The set of 
elements and group operation (G,*) must satisfy: closure under the operation among 
elements, every element in the group G must have an inverse also contained in G, the 
set must contain an identity element (e), and associativity must hold for any elements 


in G. The order of this group of elements is simply the number of elements in the set. 


There are also special types of groups with elements that act commutatively 
which have a special name, abelian groups. Certain collections of elements pulled from 
a group can form a subgroup of G and the order of this subgroup H, will divide the 
order of G as was proven by Lagrange. A subgroup of G is said to be normal in G if 
the elements of the subgroup commute with the elements of G. If a nontrivial group G 
contains only the trivial {e} and set G normal subgroups then G is said to be a simple 
group. These simple groups are special to our field of study as they encompass Lie 
type groups and the sporadic simple groups. These special simple groups are valuable 
components to our research. Sporadic groups typically have large orders but that huge 
size speaks very little about the complexity of the operations taking place among its 


elements. 


The following are some of the concepts which will be investigated in this doc- 
ument. Chapter 1 will give the reader proofs, lemmas, and definitions of discussed 
topics. Chapter 2 will go through the process of constructing progenitors. Chapter 3 
will demonstrate the ability to find isomorphic images using the homomorphic proper- 
ties of groups. Chapter 4 will prove the existence of these groups through the process 
of double coset enumeration. Chapter 5 will demonstrate our ability to induce a linear 


character and construct progenitors from their faithful monomial representations. 


Chapter 1 


Group Theory Prerequisites 


1.1 Definitions 
Definition 1.1. /Rot95/ A group G is abelian if every pair of elements in G commutes 
with one another. 


Definition 1.2. /Rot95/ A group G (G,*) is a nonempty collection of elements with 


an associative operation *, such that: 


e there exists an identity element, e€ G such thatexa=axe for alla € G; 


e for everya€G, there exists an element b€ G such thataxb=e=b*a. 


Definition 1.3. /Rot95/ For group G, a subgroup S of G is a nonempty subset where 
s € G implies s“! € G and s,t € G imply st € G. We denote subgroup S of G as 
S<G. 


Definition 1.4. /Rot95] Let H be a subgroup of group G. H is a proper subgroup of 
G ifH#G. We denote this as H <G. 


Definition 1.5. /Rot95] Let G be a group and H < G. H is a maximal subgroup of 
G if there is no normal subgroup N <G such that H<N<G. 


Definition 1.6. /Rot95/ A symmetric group, Sx, is the group of all permutations of 


X, where X EN. Sx is a group under compositions. 


Definition 1.7. /Rot95] If X is a nonempty set, a permutation of X is a bijection 
eo ease 


Definition 1.8. /Rot95/ Ifx <¢ X and @¢ € Sx, then ¢ fixes x if ¢(x) = x and ¢ moves 
au if O(x) A ax. 


Definition 1.9. /Rot95/ For permutations a,3 € Sx, a and £@ are disjoint if every 


element moved by one permutation is fixed by the other. Precisely, 


if a(x) # x, then B(a) =a and if a(y) = y, then Bly) # y. 


Definition 1.10. /Rot95/ A permutation which interchanges a pair of elements is a 


transposition. 
Definition 1.11. /Rot95/ In group G, if a,b € G, a and b commute if a*b=bx«a. 


Definition 1.12. /Rot95/ Let G be a group. The order of G is the number of elements 
contained in G. We denote the order of G by |G|. 


Definition 1.13. /Rot95] Let G be a group. G is simple if the only normal subgroups 
of G are 1 andG. 


Definition 1.14. /Rot95/ Let p be prime. If G = Z, x Zp x --- x Zp, then we say G is 


elementary abelian. 


Definition 1.15. /Rot95/ Let (G,*) and (H,°) be groups. The function ¢6: G— H is 
a homomorphism if ¢(a * b) = ¢(a) o ¢(b), for all a,b € G. An isomorphism is a 
bijective homomorphism. We say G is isomorphic to H, G = H, if there is exists an 


isomorphism f :G— H. 


Definition 1.16. /Rot95/ Let f : G — H be a homomorphism. The kernel of a 
homomorphism is the set {x € G| f(x) = 1}, where 1 is the identity in H. We denote 
the kernel of f as ker f . 


Definition 1.17. /Rot95/ Let X be a nonempty subset of a group G. Let w € G where 


w=ayas...c&, with o © X ande;=+1. We say that w is a word on X. 


Definition 1.18. /Rot95] Let G be a group such that K < G. K is normal in G if 
gKg-'=K, for everyg €G. We will use K <G to denote K as being normal in G. 


Definition 1.19. /Rot95/ Let G be a group. We say G is a direct product of two 
subgroups H and K if: 


1.H<IG, kK AG; 
2. G=HK; 
3. HANK =1, 
Definition 1.20. /Rot95/ G is a semi-direct product of two subgroups H and K if: 
1.K<IG,Q<G; 
2.G=KQ; 
3. KNQ=1. 


Definition 1.21. /Rot95/ Let a, b © G. We denote the commutator of a and b by 


[a,b], where [a,b] = aba~'b-!. 


Definition 1.22. /Rot95/ Let G be a group. The Derived Group of G, denoted G’, 
is the subgroup of G formed by all the commutators of G. 


Definition 1.23. /Rot95/ Let G be a group and S CG. Fort € G, aright coset of S 
in G is the subset of G such that St = {st: s € G}. We say t is a representative of 
the coset St. 


Definition 1.24. /Rot95/ Let G be a group. The index of H < G, denoted |G: H], is 
the number of right cosets of H in G. 


Definition 1.25. /Rot95/ Let G be a group and H and K be subgroups of G. A double 
coset of H and K of the form HgK = {Hgk|k € Kk} is determined by g € G. 


Definition 1.26. /Rot95/ Let N be a group. The point stabiliser of w in N is given 
by: 


NY = {ne Nlw” = w}, where w is a word in the t;’s. 


Definition 1.27. /Rot95] Let N be a group. The coset stabiliser of Nw in N is given 
by: 


N™) ={n € N|Nw” = Nw}, where w is a word of the t;’s. 


Definition 1.28. /Rot95/ Let X be a set and G be a group. We say X is a G-set if 
there exists a function ¢: Gx X + X (which we call an action) and the following hold 


for ¢: 
elx=uaz, forallxe xX. 
e g(hx) = (gh)a, forg he Gandxe X. 


Definition 1.29. /Rot95/ Let G be a group. The center of G, Z(G), is the set of all 


elements in G that commute with all elements of G. 


Definition 1.30. /Rot95/ Let G be a group and H, N <G such that |G| = |N||H|. G 
is a central extension by H if N is the center of G. We denote this byG = N°H. 


Definition 1.31. /Rot95/ Let G be a group and H, N < G such that |G| = |N||H|. 
G is a mixed extension by H if it is a combination of both central extensions and 


semi-direct products, where N is the normal subgroup of G but not central. We denote 


this byG=N °° H. 


Definition 1.32. /Rot95/ Let G be a group. If H < G, the normalizer of H in G is 
defined by Na(H) = {a € GlaHa~! = H} 


Definition 1.33. /Rot95/ Let G be a group. If H < G, the centralizer of H in G is: 
Ce(A) ={x eG: [xz,h] =1 for allh € H}. 


Definition 1.34. /Rot95/ Let a € G, where G is a group. The conjugacy class of a 
is given by a& = {a9|g € G} = {gq laglg € G} 

Definition 1.35. /Rot95/ Let G be a group and X be a G-set. For x € X, the set 
x? = {x9|g € G} is a G-Orbit. 

Definition 1.36. /Rot95/ Let X be a G-set. Let a be an action of G on X. Ifa:G—- 


Sx is injective, we say X is faithful. 


Definition 1.37. /Rot95/ Let G be a group and X be a G-set. X is transitive if for 
all x,y € X there exists ag © G such that y = gu. 


Definition 1.38. /Rot95/ Let G be a group. A normal series G is a sequence of 


subgroups 


G=G)2G,2°:-2Gn,=1 


with Gi41 <1 G;. Furthermore, the factors groups of G are given by G;/Gi41 for 
(=O eae 


Definition 1.39. /Rot95/ Let G be a group. A composition series of G given by: 
G=G)2G,2°:-2Gn,=1 


is a normal series where, for alli, either Gj41 is a maximal normal subgroup of G; or 


Gis1 = Gi. 


Definition 1.40. /Rot95/ If group G has a composition series, the factor groups of its 


series are the composition factors of G. 


Definition 1.41. /Rot95] Let X be a set and A by a family of words on X. A group 
G has generators X and relations A if G = F/R, where F is a free group with 
basis X and R is the normal subgroup of F generated by A. We say < X|A > is a 


presentation of G. 


Definition 1.42. /Rot95/ The Dihedral Group D,,, n even and greater than 2, groups 
are formed by two elements, one of order 5% and one of order 2. A presentation for a 


Dihedral Group is given by < a, bla? , b?, (ab)? >. 


Definition 1.43. /Rot95/ A general linear group, GL(n,F) is the set of alln x n 


matrices with nonzero determinant over field F. 


Definition 1.44. /Rot95/ A special linear group, SL(n,F) is the set of alln x n 


matrices with determinant 1 over field F. 


Definition 1.45. /Rot95/ A projective special linear group, PSL(n,F) is the set 


of alln x n matrices with determinant 1 over field F factored by its center: 


PSL(n,F) = L,(F) = aa 


Definition 1.46. /Rot95/ A projective general linear group, PGL(n,F) is the set 


of alln x n matrices with nonzero determinant over field F factored by its center: 


_ GL(n,F) 
PCL) = Fae By 


Definition 1.47. /Rot95/ Let X be a G-set. Then for B C X, B is a block if for every 
g €G, either gB = B orgBNB=9. 


Definition 1.48. /Rot95/ Let X and Y be G-sets. The function f : X + Y is aG-map 
if f(gx) = gf (ax), for allxae X andg eG. 


Definition 1.49. /Rot95/ Let X be a G-set. X is primitive if X has no nontrivial 
blocks. If X is primitive, the only blocks of X are B= X and B= 9. 


Definition 1.50. /Rot95/ Let H and K be permutation groups on X and Y respectively 
then Z = X x Y where Z = {(x,y)|a € X,y © Y} and XNY =9. If a permutation 
group is defined on Z then we call this the Wreath Product of H by K, denoted H2 K. 
Define H < Sx and K < Sy. 


Definition 1.51. /Rot95/ Let y © H and y be a fixed element of Y definite 
y (W): {@y > (2), y), (tm) > (2,91) fn Ay} 


Definition 1.52. /Rot95/ Ifk €¢ K then k* : (x,y) > (a, (y)k). 


Definition 1.53. /Rot95/ Let y(y) and k* be permutations of Sz then 
o@: H > Sz given by y > y(y), 
where @ is a 1-1 homomorphism. Then the image 
d(H) = {y(y)ly € A} = Hy). 
Andw:K —+ Sz given byk > k*, 
where w is also a 1-1 homomorphism. Then w(k) = k* = {k*|k € k} 


Definition 1.54. /Cur07] Let G be a group and T = {ty,t2,...,tr} be a symmetric 
generating group of G with |t;| = m. We define the progenitor to be the semi direct 
product m*" : N, where m*" is a free product among tis and N is a control group that 


acts transitively on n letters. 


Definition 1.55. /Led87] The degree of a character y is x(1). Note that a character 


whose degree is 1 is called a linear character. 


Definition 1.56. /Led87/ Let A(x) = (aij(x)) be a matrix representation of G' of degree 


m. We consider the chracteristic polynomial of A(x), namely 


Xr = a4i1(x) —a12(2) ane —A1m(2) 
det(A ae A(z) = Xr aa a(x) —a2(x) ae —A2m (2x) 
N= Gmi(L) —Amo(x) ... A Amm(Z) 


This is a polynomial of degree m in X, and inspection shows that the coefficient of —X"~! 


is equal to 
(x) = a31(@) + aaa(x) + .. + Qmm(Z) 
It is customary to call the right-hand side of this equation the trace of A(x), abbreviated 
to trA(x), so that 
(x) = trA(x) 
We regard $(x) as a function on G with values in K, we call it the character of A(x). 


Definition 1.57. /GL93/ Let p: G— GL(n,C) with each n x n matrix gp (g € G) 
we associate the complex number given by adding all the diagonal entries of the matrix 
and call this number x(g). The function x: G— C is called the character of the 


representation of rho. 


Definition 1.58. /GL93/] Suppose that x and ¢ are functions from G to C, Define 
(x9) = eq DX x(9)o(9) 
gEG 
Definition 1.59. /Led87] Let H < G and ¢(u) be a character of H and define (x) = 0 
if x € H. Then 
o(z) ifcreH 
0 ifed H 


$° (x) = 


Definition 1.60. /Led87/ Let G be a finite group and H be a subgroup such that 
IG: H| =n. Let Ca, where a = 1,2,...,m be the conjugacy classes of G with |Ca| = ha, 
a = 1,2,...,m. Let @ be a character of H and © be the character of G induced from 


the character of ¢ of H up to G. The values of ¢% on the m classes of G are given by: 
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of = he SS Ow) = 1,253, x71. 


weCganH 
Definition 1.61. /GL93/ If x and ¢ are functions from G to C, and  € C, then we 
define x +@:G—>C by 


(x + 6)(9) =x(g) + (9) (9g € G) 


and we define 4x :G—>C by 


Ax(g) = A(x(g)) (9 € G) 


Definition 1.62. /GL93/ Let G be a finite group having the distinct irreducible charac- 


ko. 
ters xD, yy. let 1 <i, 7< k. Then Dx xy? = (elgg. 
— 
(a) In a character table, the dot product of any column with the conjugate of 
other column is 0. 
(b) In a character table, the dot product of the column a with its own conjugate 
1S eal 
he 
Definition 1.63. /GL93/] Let G be a cyclic group of order n. Then G = < z> and 
He Lee. = ea, where r = 0,1,2,...,n, be the nth roots of unity. For any 
2° € G, s =0,1,2,..,n, the values of the irreducible characters x) are given by 


69 (28) = en where r = Of yas 


Definition 1.64. /GL93] Let G be a finite abelian group, say G =< 21 > xX < 22> 


Kak < By >, where each 2, ts of order ny, and |G| = tinetigs Lele = 2] 25 ze” 


where 0 < ay, < ny, be an arbitrary element of G. Now let, for each p,€, =e ™ , 


where r,, = 0,1,2,...,n,, be the nth roots of unity. Here w = 1,2,...,0r, m. Then 
corresponding to each m-tuple r = [r1,72, Tm], x, given by, x(x) =e = 


Definition 1.65. /GL93] Lifting Process 

Let N be a normal subgroup of G and suppose that Ap(N«x) is a representation of degree 
m of the group G/N. Then A(x) = Ao(Na) defines a representation of G/N LIFTED 
from G/N. If ¢o(N2) is the character of Ao(Na), then $(x) = ¢o(N«x) is the LIFTED 
character of A(x). Also, ifu E€ N, then A(u) = Im, ¢(u) = m = (1). The Lifting 


Process preserves irreducibility. 
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Definition 1.66. /GL93] If A is a representation of G with character ¢, then those 
elements u which satisfy ¢(u) = ¢(1), form a normal subgroup of M, which is the 
KERNEL of A. Then Ao(Ma) = A(x) is a representation of A, and we may regard A 
as having been lifted from A. 


1.2 Theorems 


Theorem 1.67. /Rot95/ Every permutation a € S;, is either a cycle or a product of 


disjoint cycles. 


Theorem 1.68. /Rot95] Let f : (G,*) — (G’,o) be a homomorphism. The following 
hold true: 


e f(e) =e’, where e’ is the identity in G’, 
e IfacG, then f(a) = f(a)?" 
e IfaceG andne€Z, then f(a") = f(a)”. 


Theorem 1.69. /Rot95/ The intersection of any family of subgroups of a group G is 


again a subgroup of G. 


Theorem 1.70. /Rot95/ If S < G, then any two right (or left) cosets of S in G are 


either identical or disjoint. 


Theorem 1.71. /Rot95/] If G is a finite group and H < G, then |H| divides |G| and 
[G : H] = |G|/|H]. 


Theorem 1.72. /Rot95/ If S and T are subgroups of a finite group G, then 
[ST||S AZ| =|S||T\. 


Theorem 1.73. /Rot95/ If N <G, then the cosets of N inG form a group, denoted by 
G/N, of order |G: N}. 


Theorem 1.74. /Rot95] The commutator subgroup G' is a normal subgroup of G. More- 
over, if H AG, then G/H is abelian if and only if G’ < H. 
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Theorem 1.75. /Rot95/ Let 6: G — H be a homomorphism with kernel K. Then Kk 
is a normal subgroup of G and G/K = imd. 


Theorem 1.76. /Rot95/ Let N and T be subgroups of G with N normal. Then NNT 
is normal in T and T/(NAT)=NT/N. 


Theorem 1.77. /Rot95/] Let G be a group with normal subgroups H and K. IfHk =G 
and HK =1, thenG2=Hx K. 


Theorem 1.78. /Rot95/ If a € G, the number of conjugates of a is equal to the index 


of its centeralizer: 
ja] = [G : Ce(a)], 
and this number is a divisor of |G| when G is finite. 


Theorem 1.79. /Rot95/ If H < G, then the number c of conjugates of H in G is equal 
to the index of its normalizer: c = [|G : Ng(H)], and c divides |G| when G is finite. 
Moreover, aHa~! = bHb~! if and only if b-'a € Ne(#). 


Theorem 1.80. /Rot95/ Every group G can be imbedded as a subgroup of Sg. In 
particular, if |G| =n, then G can be imbedded in Sy. 


Theorem 1.81. /Rot95/ If H < G and |G: H| =n, then there is a homomorphism 
p:G—S),, with kerp < H. The homomorphism p is called the representation of G on 
the cosets of H. 


Theorem 1.82. /Rot95/ If X is a G-set with action a, then there is a homomorphism 
a: Sx given bya: x+> gx =a(g,x). Conversely, every homomorphism p : G > Sx 


defines an action, namely, gx = y(g)x, which makes X into a G-set. 


Theorem 1.83. /Rot95/ Every two composition series of a group G are equivalent. 


We will refer to this Theorem as the Jordan-H6older Theorem. 


Theorem 1.84. /Rot95/ Let X be a faithful primitive G-set of degreen > 2. If H<aG 
and if H #1, then X is a transitive H-set. Also, n divides |H|. 
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Theorem 1.85. /Rot95/ The wreath product of the group H by K, denoted H? K is the 
semi-direct product H” : K, where n is the number of letters on which K acts and H”™ 
is the direct copies of H. K permutes the n isomorphic copies of H. 
Hi. K ={A(y), K*|\ye VY} 
HH. K = TA (y):k* 
Theorem 1.86. /Led87] The number of irreducible characters of G is equal to the 


number of conjugacy classes of G. 


Theorem 1.87. /GL93/] Let p: G — GL(n,C) be a representation of G, and let y be 
the character of p. 
(1) Forge G 
lx(g)| =x) = gp =Xln for some A in C 
(2) Ker p={g € G;x(g) = x(1)} 
Theorem 1.88. /GL93] The sum of squares of the degrees of the distinct irreducible 
characters of G is equal to |G|. The degree of a character x is x(1) 


Theorem 1.89. /GL93/ All irreducible characters of a finite abelian group G have degree 
1. 


Theorem 1.90. /Has17] Let NG 
(a) If x is a character of G => x°(Ng) = x(g) 
(b) If x® is a character of G/N => x(g) = x*°(Nqg) is a character of G. 


(c) x is irreducible <= > y° is irreducible. 


1.3. Lemmas 


Lemma 1.91. /Rot95/ Let X be a G-set, and let ry € X. 
e JfH <G, then HxN Hy £0 implies Hx = Hy. 
e If H<G, then the subsets Hx are blocks of X. 


Lemma 1.92. /Cur07/ NN < ti,t; >< Cn(Nij) where Ni; denotes the stabilizer in N 
of the two points i and j. 


Lemma 1.93. /Gri15/ The Factoring Lemma: Factoring the progenitor m*”" : N by 
(tj,t;) for 1 <i<j <n gives the group m” : N. 
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Chapter 2 


Progenitors, Relations, and 


Modifying Finite Presentations 


2.1 Introduction 


The word progenitor is synonymous for the word parent in the English lan- 
guage. The progenitor we work with is the ” parent” of many of our discoveries and was 
developed by Robert T. Curtis. Curtis’ progenitor takes a finite control group N and 
forms a semi-direct product correspondence with a free product m*” which results in 
an infinite group that we can factor by relations to obtain a finite homomorphic image 
of a group. The progenitor is where most of our research originates and this section 
will explain in detail how to construct a progenitor using a group found in the Magma 


database as our control group. 


2.2 Constructing Progenitors using the 


Magma Database 


Curtis chose his progenitor to be of the form 2*” : N because he was able to 
provide proof that he could produce any non-abelian simple group as a homomorphic 
image. This is especially useful since the more interesting groups, sporadic groups, are 


of this type. There are a total of 26 sporadic groups that we hope to produce. The 
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Mathieu 12 group denoted Mj2 and Suziki group Suz(8) are two sporadic simple groups 


that presentations have been found on 12 and 5 letters in this document. 


Now, we wish to find a suitable N in the database that we can use. To do 
this we investigate Magma using the code N:=TransitiveGroup(k,f); where k is the 
number of letters and f is the number of the storage file. For this example we will use 
N:=TransitiveGroup(12,25); a transitive group on 12 letters in the, 25" storage space. 


Now that we have an N (which we determine to be isomorphic to 2? : (2? x3) in chapter 2: 


> N:=TransitiveGroup (12,25); 


We label are ”N” as G so we can run a test to insure the group we have pro- 
duced is in fact the same N:=TransitiveGroup(12,25). Now that we have our group, we 
wish to obtain a presentation. To do so, we ask Magma to produce a finite presentation 


using FPGroup(N): 


> FPGroup(G); 


Finitely presented group on 5 generators 


Relations 
$.1°2=Id(S) 
$.2°2=1d($) 
$.3°3=Id($) 
$.4°2=Id(S) 
$.5*2=Id(S$) 
$.2°$.1=$.2 
$.3°$.1=$.3 
$.3°$.2=$.3 
$.4°$.1=$8.4 
$.4°$.2=8.4 
$.4°$.3=$8.5 
$.5°$.1=$.5 
$.5°$.2=$.5 
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$.5°S.3=8.4«%$.5 
$.5°$.4=8.5 
Mapping from: GrpFP to GrpPC: G 


$.1 represents a word in the presentation which we will label x in this doc- 
ument, $.2 represents y, and so on. With this information we construct the following 


presentation for our N. 


ZZ< 2,Y,Z,wW,u >:= Group < 2, y,z,w, ulz’, y”, 22, w?, u2, y® = y, 27 =z, 


Yw=z,w* =u,w =u,w* =4u,u* =u, =u, =wxeuu" =u>; 


Now, we want to verify that our presentation for our N matches the one for Transitive- 
Group(12,25) so we run the following code to construct an image of our ZZ which and 


then ask Magma to determine if the group N is Isomorphic to the image of ZZ. 


£,G1,k:=CosetAction(ZZ,sub<ZZ|Id(ZZ)>); 

> IsIsomorphic(N,Gl1); 

true Mapping from: GrpPerm: N to GrpPerm: Gl 
Composition of Mapping from: GrpPerm: N to GrpPC and 
Mapping from: GrpPC to GrpPC and 

Mapping from: GrpPC to GrpPerm: Gl 


We still must construct a free product among our t’s. We do know that this 


2*!2 since we are working in TransitiveGroup(12) 


presentation will have free product 
and the t’s are order 2. To produce the infinite progenitor, our method involves stabi- 
lizing one of our t’s using our permutations in N and converting those permutations to 
words using the generators of N. To begin, we want the most efficient presentation of 


N. Using the following code we obtain an efficient presentation: 


> SL:=Subgroups (G1); 


> T := X*‘subgroup: X in SL; 

> #T; 

39 

> TrivCore := H:H in T| #Core(Gl,H) eq 1; 


> mdeg := Min(Index(G1l,H):H in TrivCore); 
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> Good := H: H in TrivCore| Index(Gl,H) eq mdeg; 

> #Good; 

5 

> H := Rep (Good); 

> #H; 

4 

> £,G1,K := CosetAction(G1,H); 

> s:=IsIsomorphic(G1,N); 

> Gl; 

Permutation group Gl acting on a set of cardinality 12 


Order = 48 = 2°74 « 3 
(Ay 2): (3 BS) 4g OOVNCT 8) ) (11 
(1, 3) (2, 5) (4, 7) (6, 9) ) (10 
(1, 4, 8).(2,- 67. 10).(37. Tp 11)-(5;, 9, 
(1, 2) (3, 5) (4, 7) (6, 9) (8, 12) (10 
(Ty S).(27--3)- 44 09-0799) €8 ) (10 


MRP NN DN 


We will now label and construct N using these permutations. To label a per- 
mutation in Magma we must store that permutation somewhere. We start by using 
S:=Sym(12); so we can store the permutations in S. Our permutation for x will be 
input as X:=S!(1, 2)(3, 5)(4, 6)(7, 9)(8, 10)(11, 12); and the other generators will 


be labeled in similar fashion. We then declare N using the command: 


N:=sSsub<S|X,Y,2,W,U>; 


Next we will stabilize the 12“ t by pulling only the permutations in N which don’t 


contain 12 as follows: 


> NO:=Stabiliser(N,12); 
> NO; 
Permutation group NO acting on a set of cardinality 12 
Order = 4 = 2°2 

(1, 5) (2, 3) (4, 7) (6, 9) 

(1, 2) (3, 5) (4, 9) (6, 7) 


From here we must determine what these elements in the stabilizer are in terms of 


x,y,z,w, and u. To do this we use: 
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> Sch:=SchreierSystem (ZZ, sub<ZZ|Id(2Z)>); 


> ArrayP:=[Id(N): 1 in [1..48]]; 

> for iin [2..48] do 

for> P:=[Id(N): 1 in [1..#Sch[i]]]; 

for> for j in [1..#Sch[i]] do 

for|for> if Eltseq(Sch[i])[j] eq 1 then P[j]:=xX; end if; 
for|for> if Eltseq(Sch[i])[j] eq 2 then P[j]:=Y; end if; 
for|for> if Eltseq(Sch[1i]) [Jj] eq 3 then P[Jj]:=Z2; end if; 
for|for> if Eltseq(Sch[i])[j] eq -3 then P[j]:=Z°-1; end if; 
for|for> if Eltseq(Sch[1i]) [3] eq 4 then P[j]:=W; end if; 
for|for> if Eltseq(Sch[1i])[j] eq 5 then P[j]:=U; end if; 
for|for> end for; 

for> PP:=Id(N); 


for> for k in [1..#P] do 
for|for> PP:=PPx*xP[k]; end for; 
for> ArrayP[1]:=PP; 

for> end for; 


The code above must be modified to fit the permutations in N. Since x,y,w and u are 
order 2, they do not have an inverse so this is accounted for in the SchreierSystem. This 
command when paired with the following for loops using the stabilizing permutations 
from NO will give words which can be introduced to the presentations of N and gives us 
the infinite progenitor we seek to produce. After the SchreierSystem has been accepted 


we use the following commands: 


> for iin [1..48] do if ArrayP[i] eq N! (1,5) (2,3) (4,7) (6,9) 
for|if> then print Sch[i]; end if; end for; 

xX * Wek U 
>for i in [1..48] do if ArrayP[i] eq N! (1,2) (3,5) (4,9) (6,7) 
for|if> then print Sch[i]; end if; end for; 

y* u 


To complete the process and make our progenitor infinite we introduce tj2 into our 
presentation and make tjz2 commute with the two words we just created leaving us with 


the new infinite progenitor, 2*!* : 2? : (2? x 3) given by the presentation: 


P<x,y,Z,W,uU,t>:=Group<x, y,Z,wW,u,t|x°2,y°2,2°3,w°2,u°2,y° xX=y, 
Z°X=Z,Z° Y=Z,W X=W, W y=W, W Z=U, U X=U, UW" y=U, U Z=WweU, U w=u,t"2, 
(t,xX*xwxu), (t,y*u) > 
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which we can verify is infinite by typing #P in Magma observing a return value 0. We 
have constructed an infinite progenitor which can be factored by relations to produce 


groups of finite order. 


2.2.1 First Order Relations and Producing Finite Representations 


The process of determining first order relations is one way of producing rela- 
tions, which can be used to factor our infinite progenitor to produce finite images of 
other groups. Whenever a symmetric presentation of a progenitor is given we should 


produce the first order relations of the control group that was used. 


To begin this process, we will require words that can be inserted into our 
presentation that represent the conjugacy classes of N. Using the same SchrierSystem 
from the previous section and declaring CC:=Classes(N) we will run a loop that will 


calculate the conjugacy classes effortlessly as follows: 


for iin [2..16] do i, Orbits(Centraliser(N,CC[i][3])); 
end for; 

for j am [2.216] “do 

for iin [1..48] do if ArrayP[1i] eq CC[j] [3] then Sch[i]; 
end if; end for; 


uu. 
~e 


end for; 


OM INK AX OG KRK WK DY 
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13 

y*« z-l 

14 

XxX * Y*x 2k U 
15 

xX * y* u* Zl 


16\\ 


Now using this list we multiply each word by t and taking the relation (x*t) for exam- 
ple, we can raise this to some power, a (in this case) and produce our final factorable 
relation. We produce the following list of relations: (x * t)®, (y * t)°, (z * t)°, (271 * t)%, 
(u«t)®, (a«xy*t), (ax wt), (ax zt)”, (2 * 2-1«t), (yx zt), (yx 271 *t)*, (ax 
yxzxuxt),(ceyxuxz lt)”, and (x*y* wt)". These form our list of first 
order relations and can be run in the background on Magma which means Magma will 
substitute each variable for a number (determined by the user) and check if the relation 
produces a group of finite order. If it does Magma will store the powers for each relation 
used and the order of the group they produced. If the relations used produce an infinite 
group or one simply too large for Magma to calculate, Magma can be set to discard this 
information and will simply leave it out of the list it produces. We call this process, 


running progenitors in the background. 


2.2.2. The Famous Lemma Performed on 2*!° : Mj 


Another way of producing relations is through a lemma known as the famous 
lemma. This method involves calculating the centralizer of the two point stabilizer 
and creating the relations with regard to this information. Curtis is responsible for 


constructing relations in this manner. Let N be given with the following permutation 
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representation: 


S:=Sym(10); 

X:=S!(1, 2) (4, 5) (6, 7) (8, 9);5 
Y:=S!(1, 3, 4, 6) (7, 8, 10, 9); 
N:=sub<S|X,Y>; 


We produce the point stabilizer N'? =< (3,6, 10,8)(4, 7, 5,9), (3,9, 10, 7)(4,6,5,8) > 
which contains 8 elements. We then calculate the centralizer of this group. Using the 


commands below, we determine the centralizer to be: 


> N1:=Stabiliser(N, [1,2]); 
> Centralizer(N,N1); 
Permutation group acting on a set of cardinality 10 
Order = 2 
(3, 10) (4, 5) (6, 8) (7, 9) 


Now we must convert this to words using the SchrierSystem used to construct 
the progenitor. Magma determines the word to be yx xnxyxauxy Lleuxy leuxy* 


gey leary’. 


We notice that the permutation (3, 10)(4,5)(6,8)(7,9) fixes 1 and 2 by not 
including them rather than through a permutation containing (1,2). This is important 
as this indicates how to construct the relation. There are two ways we construct relations 


defined as follows: 


(at;)™ =1 where m is odd and z sends 1 to 2 
Relation = 


(tit;)" =a where m is even and z fixes 1 and 2 


Now, since our permutation (3, 10)(4,5)(6,8)(7,9) fixes 1 and 2 we construct the rela- 
tion (t1, tg)’ = (3, 10)(4, 5)(6, 8)(7,9) which reads as (t1,t7)" =yxuxyxuxy Lexx 
y l*xxxy*xx*y 1* xy? and can now be used in our progenitor to produce a finite 
presentation of an infinite progenitor. Unfortunately, the progenitor for 2*!° : Myo did 


not produce any useful results with first order or famous lemma relations. 
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2.2.3 Changing the Control Group to 2*?: 53 


When finding finite groups using Magma, the control group may change to a 
proper subgroup of N. While this is not always the case, if this does happen it indicates 
that our progenitor has changed. This section aims to explain how to determine the 
new progenitor and control group being used. Once this process has been carried out, 
double coset enumeration will be possible to conduct. 
> G<x,y,Z,w,t>:=Group<x,y,Z,w,t|x°2,y°3,Z° 3=w'2,w 3,y° xX=y, 


> Z°K=Z°24W,Z° y=Z*w,W X=W°2,W y=w,w z=w,t°2, (t,x*z°-1), 
> (t,w*xy°-1), (w°-let) 74, (zey*t) 77, (x*t) 78>; 


> 
> £,G1,k:=CosetAction (G, sub<G|x,y,Z,w>); 
> CompositionFactors (Gl); 
G 
| Cyclic(2) 
* 
| A(1, 7) = L(2, 7) 
1 
>#sub<G|x,y,Z,W>; 
6 


The reader should note the original N is & 2? : (2? x 3) which is order 48. 
Magma determined this PGL(2,7) on a subgroup of order 6 of the control group N. 
Before we can perform double coset enumeration on this N we must shrink our control 
group down to order 6 and eliminate unnecessary information. We proceed by checking 
the order of each individual element of sub< G|x, y, z,w > under their image as follows: 
> Order (f(x) ); 
Z 
> Order(f(y)); 
1 
> Order (f(z)); 
3 


> Order (f(w)); 
1 


This indicates that the elements y and w are no longer required in the presentation for 
N in this finite representation. So we begin eliminating w and y from the presentation 


of G. Any relation between w and y will clearly be deleted from the progenitor. We 
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start by deleting y*? and w® from the progenitor and then notice w* = w?,wY = w, 
w* = w,(t,w*y 1), and (w 1 t)*. These can all be deleted since w is no longer 


included in the presentation. The final relations we must consider are those such as 


23 = w? and z* = 2? *w. In both cases deleting just the portion with w suffices 


2 


and leaves z* and z* = z? as relations. Once this has been completed for the entire 


presentation the following presentation is achieved. 


> G<x,z,t>:=Group<x,z,t|x°2,2°3,Z2°x=zZ°2,t°2, (t,x*z°-1), (z*t) 77, 
>(x*t) “8>; 

> £,G1,k:=CosetAction (G, sub<G|x,z>); 

> CompositionFactors (Gl); 


Cyclic (2) 


PALS. = LZ 7) 


rP— + —Q 


To obtain the permutations of x and z we must consider just the portion of this 
progenitor which does not include t. This leaves us with the following presentation: 
NN< X,Z >:=Group< X,Z|X?,Z?,Z* = Z? >. From this point we construct 
a subgroup of NN using the stabilizer of our t (in our new progenitor) as follows: 
H :=sub< NN|X * Z~1 >. We find a permutation representation of the group as 
follows: 

> NN<X, Z2>:=Group<X, Z|X*2,2°3,Z°X=Z°2>; 
> H:=sub<NN|X*«Z*-1>; 
> ff,NN1,k1:=CosetAction (NN,H); 
> obi (Soy 
(1, 2) 

> f£(Z); 
(1, 2, 3) 


We then verify this was done correctly by using the following code: 
> Stabiliser(NN1,1) eq sub<NN1|ff (X*Z°*-1)>; 

true 

Our new control group N given by the following permutations: 


S:=Sym(3); 
X:=S!(1, 2); 
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YHSO! (Ly, 252 3)3 
N:=sub<S|X,Y>; 


is isomorphic to $3 leaving us with the progenitor factored by relations 


2°35 ~ PGL»(7). 


(1,2,3)titgtetit3tati ,(e)tatitetitetiteti 


2.2.4 Factoring the Center PG'L2(11) Factored by 3 


In the case being presented, we are factoring by the center to decrease the 
amount of double cosets in our Cayley diagram. This condenses the Cayley diagram of 
G/Z(G) and shortens the amount of time required to complete a double coset enumer- 


ation. To begin the process, we consider the presentation: 


> G<a,b,e,t>:=Group<a,b,e,t|a°2,b°2,e°3,b° a=b,e°a=e"2,e°b=e, 
> t°2, (t,axe), (b*xt) 5, (e°-l*t) 73>; 
> £,G1,k:=CosetAction(G, sub<G|a,b,e>); 
> CompositionFactors (Gl); 
G 
Cyclic (2) 
* 
A(1, 11) = L(2, 11) 
* 
Cyclic (3) 


Magma will list anything that can be factored out below the linear group. This happens 
because typically we factor by a largest abelian group and determine direct products in 
this manner. In this case 3 can be factored out from the PGL2(11). The reader should 
note that we have verified using Magma that this is PGL2(11) and not PSL2(11) x 2. 


How this was determined will be presented in the Chapter 3 on extension types. 


To begin the process we will need to determine the generator for the center. 
Since we know the center is a normal subgroup of G, we will investigate the Normal 
Lattice to find an element of order 3 as follows: 
NL:=NormalLattice (G1); 


> NL; 
Normal subgroup lattice 
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Order 3960 Length 
Order 1980 Length 


[ 54] Maximal Subgroups: 
[4] 

[3] Order 660 Length 

[2] 

[1] 


Maximal Subgroups: 
Maximal Subgroups: 


PreDNO os 
Ww 


Order 3 Length 
Order 1 Length 


Maximal Subgroups: 


PrPrPP Pe 


Maximal Subgroups: 


The subgroup of order 3 turns out to be labeled NL[2] and we investigate the generators 


NL[2].1 and NL[2].2 and discover that Order(NL[2].2) = 3 which is the element we 


seek. From here we store the element as F := NL[2].2; in Magma. Since we cannot 
introduce permutations into presentations of groups we will need to convert this lengthy 
permutation found in the image of G into a word so that we can introduce it into the 
SchrierSystem to produce a word. This group was found on the progenitor 2*!? : 2? : 
(2? x 3) that was discussed earlier; because of this we will use the same SchrierSystem 
from earlier. Comparing our work from earlier, we will need to modify where the 
SchrierSystem obtains elements. Since our presentation was labeled NN and our N 
was simply N in the original case, our presentation is currently labeled G and our 
permutation is found in G1 so we will store N := Gl and NN := G. We also must 
account for the order of G1 (3,960) in the SchrierSystem as well as the image of our 
elements. This will be reflected in the proceeding code: 

N:=G1; 

NN:=G; 

F:=NL[2].2; 


Sch:=SchreierSystem (NN, sub<NN|Id(NN)>); 
ArrayP:=[Id(N): 1 in [1..3960]]; 
for i in [2..3960] do 


VVVVV VV 


for> P:=[Id(N): 1 in [1..#Sch[i]]]; 

for> for j in [1..#Sch[i]] do 

for|for> if Eltseq(Sch[1i]) [Jj] eq 1 then P[j]:=f(a); end if; 
for|for> if Eltseq(Sch[i])[j] eq 2 then P[j]:=f(b); end if; 
for|for> if Eltseq(Sch[i])[j] eq 3 then P[j]:=f(e); end if; 
for|for> if Eltseq(Sch[i])[j] eq -3 then P[j]:=f(e)*-1; end if; 
for|for> if Eltseq(Sch[i]) [Jj] eq 4 then P[j]:=f(t); end if; 
for|for> 

for|for> end for; 


for> PP:=Id(N); 
for> for k in [1..#P] do 
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for|for> PP:=PP*P[k]; end for; 

for> ArrayP[1]:=PP; 

for> end for; 

> 

> for i in [1..3960] do if ArrayP[i] eq F then print Sch[i]; 
end if; end for; 


axbxtxaxb«etearbetxbxtxaxtxbetxbexee*-Llietebexextxbxext 


The word generated from the SchrierSystem will then be introduced into the presenta- 


tion of G giving us the final result: 


> G<a,b,e,t>:=Group<a,b,e,t|a°2,b°2,e°3,b°a=b, 

> e°a=e"2,e°b=e,t*2, (t,axe), (b*t) 75, (e°-1*t) 73, 
axbxtxaxbetrarbetxbxtxaxtxbetebxe*-Lietebxextxbxext>; 
> £,G61,k:=CosetAction(G, sub<G|a,b,e>); 

> CompositionFactors (Gl); 

G 


Cyclic (2) 


This PGL2(11) will be investigated more thoroughly in Chapter 4 if it turns out to be 


an original group found on the progenitor 2*° : Dy». 


2.3. Wreath Product 


Constructing a wreath product is another way we can create a control group 
for a progenitor. The process involves taking two known group, taking their generators 
and presentations and then finding the direct and semidirect product actions among 
the elements. One should note that the generators should be disjoint to complete 
this process and we can complete this process without requiring much assistance from 


Magma. 


2.3.1 Constructing the Wreath Product of 2*° : Z:? D4 


Let H = Zo =< e, (1,2) > and K = D4 =< (3, 4,5, 6), (3,5) > with X ={1, 2} 
and Y = {3,4,5,6} and let Z be defined Z = {(z, y)|a € X,y € Y}. We determine Z 
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to be Z = {(1,3), (1, 4), (1, 5), (1, 6), (2, 3), (2, 4), (2, 5), (2, 6)}. 
By the following definition we have, y € H and y is a fixed element of Y. 


Defined as y(y) : {(z,y) > ((x)7,y), (@, y1) > (x, y1) if yr A y}.The following tables 


show these mappings. We label each element in Z from 1 to 8 and proceed as follows: 


Table 2.1: Mapping of 7(3) 


aor W OD OK LH 
eee NNN Ne NN 


AAR WA AA YW 
fea eed Fe 
LN No oo o> 


NNNPRP Rr bd 
CON DFR WDHD 


OE OE SO SO ll el ee 


ONonow»rwnr 
LN ON DN oo oS 


This indicates that y(3) = (1,5). We repeat the process for each remaining 
element in Y and obtain y(4) = (2,6), 7(5) = (3,7) and 7(6) = (4,8). Now by definition 
let k € K and define k* : {(a,y) — (a, (y)k)}. We construct the following tables for kj 


and k>5 using our permutations from D4. 


Table 2.2: Mapping of k] = (3, 4, 5, 6) 


1 4S a a 
2° (A) Ss 0,5). 38 
2-5) ee hey a 
4 (1,6) > (1,3) 1 
5 ADB) 3. AY 6 
6 (ay oo Sy 8 
7 (2,5)! = (2:6) <8 
8 OG) Se 103) 5 
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Table 2.3: Mapping of k} = (3, 5) 


i igs); elise), 
Oo: ay, 2s. Say DB 
BY gay Se gs) 
4 (1,6) + (1,6) 4 
5 (By <8 iO oy, # 
6 (2,4) + (2,4) 6 
FM Ob)o ah. O.8y; 25 
8 (2,6) > (2,6) 8 


These tables indicate that kf = (1, 2,3, 4)(5,6,7,8) and k} = (1,3)(5, 7). Now, 
we know that Z$ =< ala? > x < bib? > x < c|c? > x < dld* > where a = (1,5),b = 
(2,6), c = (3,7), and d = (4,8) and the presentation for D4 =< e, f\e*, f?, (ef)? > where 
e = (1,2,3,4)(5,6,7,8) and f = (1,3)(5,7). We know the elements of Z} will commute 
in our presentation since they result in a direct product. We must now calculate the 
action of D4 on Z2 which gives us the following words to inject in our presentation: 

a® = b,b° =c,c’ = d,d° =a, 
al =c,bf =b,ci =a,d' =d 


Combining all the information we have gathered we construct the final presentation: 


Zy " D4 = <a, b, C, de, f\a?,0" ca", (a, b), (a,c), (a, d), (0, c), (0, d), (eG; Dents (ef), 
a= bbHoe =d.0 =o,0 Sel jb =a =d> 


which we verify is isomorphic to TransitiveGroup(8,35), a group we know is isomorphic 


to Z}: D4 using the following Magma code: 


P<a,b,c,d,e, £>:=Group<a,b,c,d,e,f|a°2,b°2,c"2, 
(a,c), (a, a), (b,c), (b,d), (c,d),e°4,£°2, (exf) “2 
c°e=d, d°e=a,a*f=c,b* f=b, c* f=a,d* f=d>; 
£3,P1,k3:=CosetAction(P,sub<P|Id(P)>); 
N:=TransitiveGroup (8,35); 

IsIsomorphic(N,P1); 

true 


d* 
ae 


’ 


VVV VV NV 


Thus far we have constructed a presentation of N, we must now introduce the 
free product, 2** to finish the infinite progenitor. We procced by calling t ~ tg and 


determine the stabilizer of tg using the following Magma code: 
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> S:=Sym(8); 

> A:=S!(1, 5); 

> B:=S! (2, 6); 

> CPSS163,. 7) 

> D:=S! (4, 8); 

> E:=S!(1, 2, 3, 4) (5, 6, 7, 8); 
> F:=S!(1, 3) (5, 7); 

> N:=sub<S/A,B,C,D,E,F>; 

> NO:=Stabiliser(N, 8); 

> NO; 


Permutation group NO acting on a set of cardinality 8 
Order = 16 = 274 


(1, 5) 
(2, 6) 
(3, 7) 
(Ly Sy (Se 7) 


The list produced at the bottom tells us t commutes with a, b, c, and f which is fortunate 
since we do not require the SchreierSystem in this example. Adding ??, (t,a),,.., (t, f) to 


our presentation of N creates our infinite progenitor 2*° : Z2? D4 with the presentation: 


P<a,b,c,d,e,f,t>:=Group<a,b,c,d,e,f,t|t°2,a°2,b°2,c°2,da°2, 
(a,b), (a,c), (a, d), (b,c), (b,d), (c,d),e°4, £°2, (e*f) “2,a°e=b, 
b*e=c,c° e=d,d°e=a,a~ f=c,b* f=b, c* f=a, d* f=d, (t,a), (t,b), 
(EC) FEE) Sy 


which can be verified to be infinite using Magma. Naturally, we would produce first 
order relations to factor our progenitor but for now we will investigate the irreducible 
monomial representations of our N. This group appears to have a more efficient presen- 
tation through Magma’s WreathProduct() function, the wreath product function will 


be used later. 


2.4 Symmetric Presentations of Groups 


Once a progenitor is constructed and relations are created for that progenitor, 
we can begin to investigate finite representations. By inserting a relation into the 
presentation of the progenitor finite images emerge. Changing the power of the relation 


causes the relation to act differently upon the progenitor producing varying results. 
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2.4.1 2*12. 92: (2? x 3) 


The following table lists the findings found on the progenitor 2*!” : 2? : (2? x 3) 
with presentation: 


G< 2,y,2,w,u,t >:= Group < 2,y,z,w,u,t|2?, y’, 23, w?,u?,y” = y,27 = 2,24 = 


z,w* =u, w =u,w* = 4, u® = 4, =u, = weu,u” = u,?’, (t,r*weu), (t,y*u) > 
factored by relations: (a *t)*, (y*t)®, (z*t)°, (271 *t)4, (uxt)®, (a«xyat)f, (cewt)9, (ax 
xt)", (az! «ty, (ys zt), (yxz! «t)*, (axyxzeurt), (aeyxurz ti”, and 


(ak pew LY" 


Table 2.4: Finite Presentations of 2*!? : 2? : (2? x 3) 


alb|c/|dj/e|f/g]h]}ijsj]ki{1)m{n+4 OrderofG}] Name of G 
3/0/5/0/0/0/0/0)/0)}0;0/0]}0)0 190,080 My : 2 
2/0/0/0/0/0/3/0])/0)}0/0/0] 8] 0 5,040 Sy 
0;0/0/0/0/;0/0/0)/0)}0/;/0/0] 3) 0 768 ee A 
0;0/0/0/0/;0/0/5)/0)0/5;/0;5)]0 15,360 28: As 
2/0/0/0/0/0/3/0])/0}0/0/0] 8) 0 117,600 PSL2(49) : 2 


Note: By replacing the corresponding variable power of each relation the finite 
representation of each group can be achieved. 


2.5 Other Symmetric Presentations Found on 12 Letters 


This section is dedicated to finite presentations of groups found on transitive 


2*!2 . N for some N in the Magma 


group 12. These progenitors all began of the form 
Database. The section will include a presentation of the progenitor with all relations 


included. The table will be similar to the table found in previous section. 


26M. - DD 


The progenitor 2*!? ; 2? x 3: 2 factored by first order relations and the rela- 


tions (y * z * t”)°, (z * t”)P given by the presentation: 


G <2,y,z,w,t >:= Group < 2,y,2z,w,t|2?, y*, 23, w?,y® =y*u,27 = 2,24 =z, 


w, wy = ww = wt, (ty * w), (w « t)%, (wt), (y #1), (2 14 (27) # 1) (wey 
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t)f,(z*wt)9, ((w*2z7t) *t)”, (ax z*t)', ((a* 27!) «t), (yx zt)®, ((y* 271) «ty, (x x 
yx zat), ((aey* 27!) *t)”, (yx z*t”)?, (2 *t%)? >; 


Table 2.5: Finite Presentations Found on 2*!? :; 22 x 3:2 


b}jdje/f}|g}/hyi|;|j |}|k)/mJo|p #G Isomorphism 
0}3/0)/5/3]/0]0}0]0]|0]0]0] 3,960 | 3x PSL2(11)* 
0/0;4])/0)/0)3;9| 0);0)}0)0)0 4 6,840 PGL(19)* 
0/0;4])/9/0)3];0; 0);0/}0)]0)04 4,896 PGL (17)* 
0};0;4/0/0]3]8/;0]0;0/0]0] 1,344 | 4:° PGL2(7)* 
0/0;0)/0)3)/0;0; 0);0/7)3)04 1,092 PSL2(13)* 
0}0/0;3/0]0]0/10]/6]0/0]5] 15,600 | PSL2(25) : 2 
6/0;0]0]0);4]0] 0 |0} 6 | 3} 0 | 108,680 2°U4(2) : 2 


Note: An asterisk right of the isomorphism type indicates the control group changed. 
The relations with power a, c, | and n were were unused and excluded. 


2.5.2 Oete 4 Dz x D4, 


9x12 


The progenitor : D3 x D4 factored by first order relations produces the 


following presentation: 


G < 2,y,2,w,u,t >:= Group < 2,y,z,w,u, tx”, y”, 27, w, u?, y® y, 2” Zz, 24 


z*w,w* =u,wY = w,w* =u, = v2, U9 = u,v? = uu” = u,t?, (t,2 * w), (t,0 * w* 


u), (w * t)%, (y * t)?, (2 « £)°, (a « t)%, (ux t)®, (we wet), (wey t)9, (we z*t)", (zy 


ti, (yxusty,(2eust)®, (ex zey st)! (wun! st)”, (2%y x uxt)” >; 


Table 2.6: Finite Presentations Found on 2*!” : Ds x D4 


bjd}|fJ/g}]i)k}]l|mjin #G Isomorphism 
O0fo/4/0/5]/0/5)/5 /0] 720 PGL3(9)* 
0/olololo/3/5]0]0] 14,400 ey 
0/3/6]/0/0]0] 0] 0 | 6 | 241,920 | $3 x PGL2(7) x Ss 
510l0;/olojo;/6]/3 )/0] 120 Ss 
5]0]0]/8]/0]0]0] 3 | 0 | 967,680 | (27)*PGL3(4) : 2? 
0/o0;/0]o0;/0]0;/0/ 0/0) 3,960 3: PGL2(11)* 
31614/0/10]/0/9]5 | 0] 51,840 U4(2) : 2 


Note: Asterisk denotes change in original control group. 
All powers missing from table are equal to zero. 
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20.8 62 22 KB CSs 


The progenitor 2*!? : (2 x 3)*S3 factored by relations: (y*z*w*t®)®, (v@*z 1x 


t)’, (vxy* zt)’, and (x*y*z~! *t)% gives the following presentation: 


G <2,y,z,w,t >:= Group < 2, y,z,w,t|27, y’, 2°, w®,t?,y® = y,2* = 2,24 = z,w 


w?,wY = w,w? = w, (t, 27 !ew!), (yezawet?)®, (waz tat)? 


x 


(axyraxt)®, (wxyez tat)! >; 


Table 2.7: Finite Presentations Found on 2*!? : 2 x 3 x $3 


a| b|c}d #G Isomorphism 
Oi) ade) ae 00 24 S4 
3/5 )]0] 5 60 As* 

3} 5 | 0 | 10} 9,720 3° (Ag x 2) 
9°) 10'| 3° | 12:)-20,520. | S3 x PSL(2,19)* 
1) 154) BC)" 6)) | 125180 PSL2(29)* 
8} 3 | 0 | 10} 4,320 6 :* PGL2(9)* 
8 i1| 0 | 12,144; PGLz(23)* 
13) BSA) Or) <*) | 092 PSL2(13)* 
7/12| 3 | 6 | 2,184 PGL3(13)* 
Oo, Illisge || TO 504 PSL2(8)* 

1 Bo] 452] 56 336 PGL2(7)* 

5} 5 | 0] 5 660 PSL(11)* 


Note: Asterisk denotes change in original control group. 


25d ee 


The progenitor 2*!? : 3? x 2: 4 factored by relations: (a7! * t)*,(y * 271 * 


t)’,(uxw! *t)°, and (y*u7! *t)? and given by the following presentation: 
3 


Gs L,Y, 2, W,U, bt >= Group < 55 2, A, ba 7 Ay ew oe Yy, Zz 2,24 


2 2 2 2 


zw =wee iw = w,w* = w,u® = w? * u?,u = uu? = u2,u” = u,#?, (t,u * 


wo), (ty *2*w), (a! x t)%, (yam * t), (us wo) «te, (yxunl «ty! >; 
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Table 2.8: Finite Presentations Found on 3? x 2:4 


alb]/clfd #G Isomorphism 
7/7 {0} 3 | 423,360 Az x PSL2(7) 
0|9|2|3] 2,448 PSTI2(17) 

0] 7|]0]| 3 | 846,720 | 2x A7 x PSL2(7) 
0);5/0]5 360 Ag 


2.6 Symmetric Presentations Found on Various Letters 


The following charts are finite representations of groups which were found on 


various numbers of letters. 


26.14) (2° 2524 


The progenitor 2*° : 5: 4 given by the following presentation factored by the 
first order relations: 
G < 2,y,z,t >:= Group < L,Y, z,t\x? — y,y7,2°,y" Sy z7, 2¥ = Faas ae Ce * 


2), (y* 2% t)*, (21), (2am? xt), (a7! x2 xt)! > 


Table 2.9: Finite Presentations Found on 2*°:5:4 


a|b|c|d]|] #G Isomorphism 
8/}0|0/5 | 720 S6 

8 | 0 | 0 | 6 | 28,800 2° A? : 2 

6| 7/0] 7 | 58,240 | Suz(8) x 2 
6 | 81]0| 7 | 80,640 | 2°PSL3(4) : 2 


The next presentation was discovered when we produced a progenitor using the 
maximal subgroup PSL2(11) of Mj2. The produced progenitor was 2*!! : PS2(11) and 


when it was discovered this was a previously investigated group, work was discontinued. 


G<x,y,t>:=Group<x,y,t|x75,y°3,t°2, 

Vax 2ey -1L xx > 2eyex > -Lxy°-1l*x*-1, (kK * y * kX * y * x) 72, 
(t,X*y*xX 7 -Lexy*x72), (t,y*x > -Lxy°-1l*xx*y*x°-lry), 

(t,y*xX  -2*y*xx°-Lxey*x), (( (x * yo°-1)72)*«t) 6, 

(((x * y)72)*t)*6>; 

£,G1,k:=CosetAction (G, sub<G|x,y>); 
CompositionFactors (Gl); 


VVVNVV VV 
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J1 


Cyclic (2) 


rP— + —Q 


2.7 The Factoring Lemma 


The factoring lemma is a very simple process for ensuring that a progenitor 
that has been constructed is the one we set out to create. This lemma states that if 
the progenitor is factored by the relations which make all the ¢;’s commute, that the 
progenitor m*” : N gives the group m” : N. The order of m” : N = m” * N which is 
what is used to verify our progenitor has been correctly produced. This was proved by 


Dustin Grindstaff. 


2.7.1 Grindstaff Lemma on 3** : Z,? D4 


N = Zo Du, which created the progenitor 2*° : Zz? D4 in the previous section 
will later be used to construct a monomial progenitor. That progenitor will be deter- 
mined to be 3*4 : Za? D4. For now we will use Grindstaff’s Lemma [Gril5] to verify our 
presentation for 3*4 : Zz 2 D4 is correct. Before we start using the Grindstaff lemma we 
compute the order of m” : N to be 34 * 128 = 10,368. We have the progenitor given as 


the following from earlier: 


P<x,y,zZ,t>:=Group<x,y,Z,t|x°4,y°2,z2°2,t°3, (x°-1l * y)72, 
(x°-Lezey) 72, (K*Z*K 7 -1*Z) 72, K°-1LKZKKO-2KZKKO2KZRKX 2ZKZKX° 1, 


(tC, X*Z*YRZKKAZRKKZ), (0, X°2*Z*K°-1L ZK -1), (EC, X° 24 ZKKKZKXEZ), 
EO ZS O2> 


When producing this progenitor the stabilized t was tj. There are three t’s we need to 
make ¢; commute with. To do this we simply use the permutations that were used to 


construct N which are: 


W:=WreathProduct (CyclicGroup(2),DihedralGroup (4) ); 
Generators (W); 

S:=Sym(8); 

KI=S1 (1, 4,7. 3,0 2) (So, By Tr 6)3 

y:=S!(1, 6) (2, 5) (3, 8) (4, 7); 

z:=S!(1, 5) (3, 7) (4, 8); 


VVVV VV 
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We are looking for a permutation or word that sends t; to tg which is easily identified 
as we. We then also easily obtain t3 = i and tg = tj. To make ¢; ~ t commute 
with these elements we create the following relations: (t,t” !), (t,t®), and (t,t”). We 


introduce these to the progenitor from earlier and determine the order of P to be: 


> P<x,y,zZ,t>:=Group<x,y,z,t|x°4,y°2,z2°2,t°3, (x°-1 * y) "2, 

> (x*-Lxzey) 72, (K*Z*x7-1*Z) 72, x7 -1L Kk ZR -2KZKKOQKZKK2*ZRX” 1, 
> (tC, X*ZKYAKZAKXKZEXEZ), (0, X°2*Z*K°-1LkZ*X 1), (0, X° 2K Z*KAKZKKKZ), 
SE eS 25 Cee Ce) ) | (Ep Ree 2) 7 CE PE Se); 

> #P; 

10368 


This of course verifies that our original progenitor was produced correctly and we should 


factor it by relations to find finite presentations of groups. 


2.7.2 Other Progenitors Verified by the Factoring Lemma 


The progenitor 13*? :,, (273) : 2 factored by (t1, t2) given by the presentation: 


> G<x,y,Z,t>:=Group<x,y,z,t|x°4, y°2, 2°73, t°13, (x°-lrty) 72, 

> AK pz) p Vre>sLeyes, tox HLet R12 pe 2 1k = 8, (KP 2 we oer Hla) O12, 
> (t,t*y)>; 

>#G; 

4056 


When we consider 13? * 12*2 we obtained 169 * 24 = 4,056. This verifies our progenitor 
was constructed correctly and can be run in the background to obtain finite presenta- 


tions. 


The progenitor 2*° : (2° : 2) factored by (t1, t2), (t1, t3), ...(t1, tg) given by the presenta- 


tion: 


>G<x,y,Z,wW,t>:=Group<x,y,Z,w,t|x°4,y°2,2°2,w 2,t°2,x°-2xw, 
>x°—Lxyxxxey, (x°-1*z) “2, (y*z)°2, (t,y*z*x), (t,t>x), (t,t’y), 
>(t,t*z), (t,t°w), (t,t* (y*x)), (t,t? (y*w)), (t,t? (y*z))>; 

>#G 

4096 


Which of course is equal to 2° * 16 = 4, 096. 
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The progenitor 2*!° : Myo factored by (ty, tz), (t1, t3), ..., (t1, #10) given by the presenta- 


tion: 


G<x,y,t>:=Group<x,y,t|x°2,y"°4,y°-l*x*y"-2*«xxy 2*xxy°2*xxy°-1, 
(y°-1l*x) “8, y°-L*xx*xy°-2*xxy°-Lexxy*-2*xxyexey 2exxy  -Lexxy 2x 
KX, Key -2eK xy Laxey -Lexxy -2e xx ye Kaye Key 2exxy -lLexexy,t 72, 


(t,X*yY 2xx*xyxxey -L*ex*xy°>-1*x), (t,t7x), (t,t7y), (t,t (y°2)), 
(t,t* (y°2*x)), (t,t* (y°-1)), (t,t* (y°-1*x)), (t,t? (y°-1*x*y)), 
(t,t* (y°-l*x*y*-1)), (t,t* (y°-L*x*y*2) ) >; 

>#G 

737280 


> 
Pe 
> 
> (t,y 2xxxyxxxy° 2), (t,y° 2*x*xyxxxy -Lxxxy”-1), 
> 
> 
> 


which is 2'° * 720 = 1024 « 720 = 737, 280. 


The factoring lemma proves to be helpful in determining if a progenitor was 
constructed correctly. When we run progenitors in the background sometimes they do 
not produce finite presentations of groups that can be worked on. The factoring lemma 
reassures that the progenitor was constructed correctly and allows us to continue our 


research knowing that a useful finite representation was not produced for a progenitor. 


2.8 Conclusion 


Constructing an infinite progenitor and obtaining finite representations of 
groups is essential to the study of group theory. While we have several ways of con- 
structing a progenitor, we must be able to distinguish between any two progenitors or 
groups being addressed. The idea of isomorphism type gives us the ability to say that a 
given group is exactly what we perceive it to be. This gives researchers the opportunity 
to work on groups and identify their findings in their research. Being able to distinguish 
isomorphism between groups also allows for researchers to make connections between 
why two structurally different groups are equivalent. Chapter 2 will aim to explain how 


to determine a group’s isomorphism type. 
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Chapter 3 


Isomorphism Type of Groups 


3.1 Introduction 


In mathematics we have a notion of equality that allows us to solve for un- 
known quantities. In algebra, people are typically asked to solve for an unknown vari- 
able. Group theory however, uses an approach more closely resembling that of geometry. 
In geometry when considering shapes; we determine if two shapes are congruent based 
on properties of the shape itself. Group theory has mechanisms which allow us to view 
permutations (of an unknown group) as geometric transformations and allow us to say 


two groups act similarly based on how those transformations match with known groups. 


An isomorphism is a bijective homomorphism. If we can establish a one-to- 
one, onto correspondence between our unknown group G to a well-known group H we 
can determine this sense of equality, called an isomorphism existing between the two 
groups denoted G = H. This allows us to count sets of permutations (the order of the 
group) and give us a rough estimate of what the group we are working with might look 


like. 


Different groups have different names based on how their symmetries interact. 
However, this does not mean that two different groups cannot have the same order. 
Consider Do(4) and the group 2 x 2 x 2, both have order 8 and both also have very 


different structure. In one set the group is abelian with every subgroup being abelian, 
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while in the other group there is a semidirect interaction among elements which causes 
some of the elements to not commute. How do we determine which set our unknown G 
is isomorphic to? This chapter aims to answer that question by investigating the group 


in question more deeply. 


3.2 Extension Type 


There are four types of extension types that take place in our research. Those 
four types are: direct products, semidirect products, central extensions, and mixed ex- 
tensions. Each extension type is defined by the action being performed on the elements 


of the group. We will define and give examples of extension in the following sections. 


3.3. Direct Products 


Direct Products are the most frequently encountered problems we encounter. 
Consider group G with subgroups H and K, if H,K dG with HN K = {e} such that 
G = H x K then G is said to be a direct product of H and K. 


3.3.1 Verification of Direct Products Using Magma 


For this example we will consider G:=TransitiveGroup(12,19). Our first step 
is to create a permutation representation of G. This process is done the same as in 


Chapter 2 and produces the following permutation representation of N: 


S:=Sym(12); 

AT=SiE(1L, 2, Gp 6)..0385- D7 9p 109-67, -22,.. 221, 8) 3 
B:=S!(1, 3, 8) (2, 5, 7) (4, 9, 12) (6, 10, 11); 
C:=S!(1, 4) (2, 6) (3, 9) (5, 10) (7, 11) (8, 12); 
D:=S!(1, 3, 8) (2, 7, 5) (4, 9, 12) (6, 11, 10); 
N:=sub<S|A,B,C,D>; 


Now, using the #N command, Magma tells us the order of N is 36. So we 


consider the normal lattice of of N. 
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L:=NormalLattice(N); 
> NL; 


Normal subgroup lattice 


10 Order 36 Length 1 Maximal Subgroups: 8 9 

9 Order 18 Length 1 Maximal Subgroups: 5 6 7 
8 Order 12 Length 1 Maximal Subgroups: 5 

7 Order 9 Length 1 Maximal Subgroups: 3 4 

6 Order 6 Length 1 Maximal Subgroups: 2 3 
5] Order 6 Length 1 Maximal Subgroups: 2 4 
4] Order 3 Length 1 Maximal Subgroups: 1 

3 Order 3 Length 1 Maximal Subgroups: 1 

2] Order 2 Length 1 Maximal Subgroups: 1 

ab Order 1 Length 1 Maximal Subgroups: 


Now, we must determine which item on the list is our largest order abelian subgroup. 


We use the command: 


> for i in [1..#NL] do if IsAbelian(NL[i]) then i; 
for|if> end if; end for; 


which indicates that NL[1], NL[2], ..., NL[9] are all abelian subgroups of N. Since NL] 
is the only subgroup of order 18, it is clearly the largest abelian subgroup. 


Now, we must determine what NL[9] is. We know NL[9] is abelian but it could 
be several different groups. There are three possibilities for NL[9] to be isomorphic too. 
NL[9] is either 3 x 6,2 x 9 or 18. If NL[9] is isomorphic to 18 then we do not have a 
direct product. Using the following Magma command we see that it is not. 


> IsIsomorphic (CyclicGroup (18),NL[9]); 
false 


Now, we can construct a direct product using Magma and verify what NL[9] 


is isomorphic to. Using the following commands we determine NL|9] © 3 x 6 
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> E:=DirectProduct (CyclicGroup (3),CyclicGroup (6) ); 

> IsIsomorphic(NL[9],E); 

true Mapping from: GrpPerm: $, Degree 12, Order 2 * 3°2 to 
GrpPerm: EComposition of Mapping from: GrpPerm: $, Degree 12, 
Order 2 * 3°2 to GrpPC and Mapping from: GrpPC to GrpPC and 
Mapping from: GrpPC to GrpPerm: E 


~~ 


which concludes this example of determining a direct product. 


3.3.2 Verifying G = S3 x PGL2(7) x Ss 


The following finite presentation of G was obtained factoring the progenitor 
2*!2 - Ds x D4. This example of determining the isomorphism type was rather interest- 
ing because the investigation required backtracking throughout the process. First, we 


observe the composition factors of G as: 


G<x,y,Z,W,uU,t>:=Group<x, y,Z,w,u,t|x°2,y°2,Z2°2,w'2,uU°3,y° X=V, 
Z°X=Z,Z° Y=Z*W,W X=W, W° Y=W,W Z=W, U X=U"2,U" y=U, WU Z=U, U W=u, 
t°2, (t,z*w), (t,x*weu), (x*w*t) 76, (z*xyx*xuxt) “6, (x*t) ~3>; 
£,G1,k:=CosetAction (G, sub<G|x,y,Z,W,uU>) ; 
CompositionFactors (Gl); 

G 


VVVV NV 


Cyclic (2) 


Alternating (5) 


Cyclic (2) 


Cyclic (3) 


To the experienced user there is evidence of $3 attached to this group. We proceed 
by investigating the normal lattice of G and note that NL[3)] is a non-abelian order 6 
subgroup. We can then verify that this is S3 using 


>IsIsomorphic(Sym(3),NL[3]); 
true 


Al 


Now, we will create the quotient by breaking off NL[3] from G using the following 
command: 

> g, f££:=quo<G1|NL[3]>; 

> #q7 

40,320 

We continue while now ignoring the Cy and C3 from the bottom of our composition 
factors. Once again, experience indicates that C2 over PSL2(7) could be PGL2(7). So 
we investigate the normal lattice of q knowing |PGL2(7)| = 336 as follows: 


> NL1:=NormalLattice(q); 
> NL1; 


Normal subgroup lattice 


10] Order 40320 Length 1 Maximal Subgroups: 7 8 9 
9 Order 20160 Length 1 Maximal Subgroups: 5 6 

8 Order 20160 Length Maximal Subgroups: 6 

7] Order 20160 Length 1 Maximal Subgroups: 3 6 

6 Order 10080 Length 1 Maximal Subgroups: 2 4 
5] Order 336 Length 1 Maximal Subgroups: 4 

4 Order 168 Length 1 Maximal Subgroups: 1 

3] Order 120 Length 1 Maximal Subgroups: 2 

2 Order 60 Length 1 Maximal Subgroups: 1 

1 Order 1 Length 1 Maximal Subgroups: 


Once again we use the argument in Magma, Islsomorphic(PGL(2,7),NL1[5]); which 
turns out to be true. Now our job becomes to determine how PGL2(7) and $3 interact 
amongst each other. We backtrack to our original normal lattice of G and look for a 


normal subgroup of order |H| = 3 « 336 = 2,016. 


Luckily, the normal lattice of G has entry NL[17] of order 2,016. So we con- 
struct the following argument to verify that NL[17] = S3 x PGL2(7). 
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> E:=DirectProduct (PGL(2,7),Sym(3)); 
> if IsIsomorphic(E,NL[17]) then print true; end if; 


true 


Now since we know NL[17] = $3 x PGL2(7) we can take the quotient G1 by NL[17] to 
leave us with what appears to be S5. Using the following commands we determine the 


following result: 


> gl, f££:=quo<G1|/NL[17]>; 
> #ql1; 
120 
> IsIsomorphic(ql,Sym(5)); 
true 


From here we can verify that this is in fact a direct product using the following com- 


mands: 


> El:=DirectProduct (E,Sym(5)); 
> if IsIsomorphic(E1,G1l) then true; end if; 


true 


This verifies that our finite G of order 241,920 is isomorphic to $3 x PGL2(7) x Ss. 


3.4 Central Extensions 


Another type of extension that takes place in our research is a central extension. 
In order for a central extension to take place, the group being studied must have a center. 


This process involves factoring out the center and then determining what remains. 


3.4.1 Verifying G ~ 2°U,(2) : 2 
We begin the process with the finite G with composition factors 


> CompositionFactors (Gl); 
G 
Cyclic (2) 
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Now, after investigating the normal lattice of G1, we determine that no direct product 
exists which will construct G. We do discover that NL[2] is the center of G and so 
we decide to produce a central extension. Now, if we factor G by NL[2] we produce 
the following q which we will need to determine before we can construct the central 
extension. 

> q ,f£:=quo<Gl|NL[2]>; 


> NLq:=NormalLattice(q); 
> NlLq; 


Normal subgroup lattice 


[3] Order 51840 Length 1 Maximal Subgroups: 2 


[2] Order 25920 Length 1 Maximal Subgroups: 1 


[1] Order 1 Length 1 Maximal Subgroups: 


Since there is no normal subgroup of order 2 in q, this rules out the possibility of a 
direct product between U4(2) and 2. We proceed as if a semidirect product exists. Now, 
we want a presentation for H. We could use NLq[2] as the presentation however, we will 
use H:=PGU(4,2) and FPGroup(H) gives 

K < b,c >:= Group < b,clb?, &, (b-1 *c*b-1 *c-1)?, (bc? eb *c-7)?, 3 x bec Fx 
bot eeedbe edt, (cheb), (bec 2b tect abect eb tec) >. 


Note: we labeled these using b and c since NL[2] is order 2 and has one generator a. 


Now, we need to establish a connection between our presentation and and 
Nlq[{2] since our presentation is more effiecient. To do this we will compute the coset 
action of K and then establish a mapping by using s,t :=IsIsomorphic where t is the 
mapping from our H to NLq/2]. 


£2,K2,k2:=CosetAction (K, sub<K|Id(K) >); 
s,t:=IsIsomorphic(K2,NLq[2]); 


The reader should note order does matter since we want our elements of K2 mapped to 
elements in NLq|2]. From here we can declare the transversal and then want to find the 


generators of K2 in NLq, since they are now in the form of transversals. To do this we 


run 
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the following code which takes b in K2, determines its permutation representation 


in K, and then maps it through our mapping t to NLq[2]. 


T:= 
B:= 
Cs 


Transversal (G1,NL[2]); 
(EZ CD) 7 
CCE2(E)); 


Now that B and C are permutations in NLq[2], we want to determine which 


permutations they are. We run the following loops to determine which transversal is 


labeled for B and C. 


> £ 
for 
220 
>fo 
for 
108 


or iin [1..#T] do if ff(T[i]) eq B then i; break; 
|if> end if; end for; 

9 

riin [1..#T] do if ff(T[i]) eq C then i; break; 
|if> end if; end for; 

2 


Now, we need to find the element of order 2 in NLq[3] that doesn’t exist in Nlq[2] as 


this 


Sk 
for 
for 


will be the element that produces our extension. We find this element using: 


or d in NLqg[3] do if Order(d) eq 2 and d notin NLg[2] 
|}if> and NLq[3] eq sub<q|NLgq[2],d> 
|if> then D:=d; break; end if; end for; 


Now, we will need to use the Schreier to determine how d acts on b and c. We 


set the Schreier up as: 


B:= 
C:= 
N:= 


f£(B); 
FEC) 3 
sub<q|B,C>; 


NN<b, c>:=Group<b,c|b°3,c*6, (b°-1l*xc*xb*-lx*c*-1) °2, 


(bx 


c°2*b*-1*c*-2)°2,c°-3*«b*c*-3x*«b*-1lkc*3*b«xc*3*b*-1, 


(c*-1l*b*-1) 79, (b*c*-2«b*-1lkec*-l*eb*ec*-1l*b*-1l*c*-1) 72>; 


Sch 


:=SchreierSystem(NN, Sub<NN|Id(NN) >); 


ArrayP:=[Id(N): i in [1..#N]]; 


£Or 
P:= 
for 


[ 
if Eltsegq(Sch[i] 
if Eltsegq(Sch[i] 
if Eltseq(Sch[i] 


i in [2..#N] do 
[Id(N): 1 in [1..#Sch[il]l]; 
3 in ] do 


eq 1 then P[j]:=B; end if; 
eq -1 then P[j]:=B*-1; end if; 
eq 2 then P[j]:=C; end if; 


[1 
1..#Sch[i] 
ie 
ads 
mie 
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if Eltseq(Sch[i])[j] eq -2 then P[j]:=C*-1; end if; 


end for; 

PP:=Id(N); 

for k in [1..#P] do 
PP:=PP*P[k]; end for; 
ArrayP[i]:=PP; 

end for; 


Once this has been set up, we use the following commands and obtain b% and c# 


> for iin [1..#N] do if ArrayP[i] eq B°D then print Sch[i]; 
for|if> end if; end for; 

cx b* ce b*-1 * Cc * b * Co-2 * b*-1 * Co-l 

> for iin [1..#N] do if ArrayP[i] eq C°D then print Sch[i]; 
for|if> end if; end for; 

bead eG ee BD ee ae TH], erie 2k Db: eer Sl 4b 


adding the relations b¢ = cxb*cxb-!*cxb*ec2*b-'*c! and cl =b-1*cxb*cx 
b-1«c? *b*c 1b we establish the semidirect product between U4(2) and 2, which we 


verify as isomorphic to q, leaving the following presentation for K: 


K <b,c,d >:= Group < b,c, d|b°, c®, (bl *cab- be" 1)”, (bec? «bt xe-7)?, co 3 x 
bac feb ta Gxbe ed !, (eo *d71)9, (bec 2 abt ec le bec lab lee), d?,b¢ = 


cxbxceb-txcebec2*b ee! t= lecebeceb lee xbeclxb>. 


Now that we have determined q © U2(4) : 2, we will create a central extension 
with an element of order 2 with K and then show that presentation is isomorphic to our 


original G which will prove what we hope to show. 
Continuing where we left off, we will use the presentation H < a >:=< ala? > 
for the order 2 group we intend to extend by. Now, we create a new mapping from K 


to q = U4(2) : 2 by using the s,t :=IsIsomorphic(K1,q) command. 


Once again we determine what B, C, and D are stored as using the following 


commands: 
> B:=t(f4(b)); 
> C:=t(f4(c)); 
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D:=t (£4 (d)); 

for iin [1..#T] do if ff(T[i]) eq B then i; break; 
for|if> end if; end for; 

T[2424] 
> for iin [1..#T] do if ff(T[i]) eq C then i; break; 
for|if> end if; end for; 

T[20394] 
> for iin [1..#T] do if ff(T[i]) eq D then i; break; 
for|if> end if; end for; 

T[7920] 


> 
> 


We will store these values for T[2424], 'T[20394] and T[7920] but they will not be shown 
in this document as they are very large permutations. We will also store A:=NL[2].1 


which is the only element in H. 


Now, we will check each of the elements in our presentation for K to see if they 


are equal to a, as that will indicate a central extension. 


> for iin [0..1] do if (C°-1 * B*-1)°9 eq A> a then 1; 
for|if> break; end if; end for; 
1 


B?,C® and all other relations in the presentation for K were not equal to a so we have 
left this code out. Now, adding a”, and setting c~! * b-! = a to the presentation of K, 


we verify that our constructed H © 2°U2(4) : 2 with: 


£,G1,k:=CosetAction (G, sub<G|x,y,Z,Ww>); 
H<a,b,c,d>:=Group<a,b,c,d|b*3,c°6, (b*-1*c*b*-1lx*xc*-1) “2, 
(b*xc*2*b*-1*c*-2)°2,c°-3*b*«c*-3*b°-1lkc*3*xb«c*3xb*-1, 
(c*-1lx*b*-1) *9=a, (b*C*7-2*b*-1l*xc*-1l*xb*«c*-1*xb*-l*c*-1) 72, 
d*2,b° d=cxb«*ctb*-1l*cxb*c*-2*b*-1l*ec*-1, 

c°d= b*°-lx«xctrb*«ctb*-1l*c*2*b*c*-1l*b,a°2>; 
£4,H1,k4:=CosetAction (H, sub<H|Id(H)>); 
IsIsomorphic(H1,G1); 

true 


VVVVVV VOY 


3.5 Semidirect Products 


A semidirect product is very closely related to a direct product. Every require- 


ment for a semidirect product is the same as the definition of a direct product except 


AT 


that a direct product requires both subgroups to be normal while a semidirect product 
requires only one normal subgroup. This minor detail changes the action of the group 


considerably. 


3.5.1 Verification of N & 2? : (2? x 3) 


To begin the process we consider N with the following generators: 


S:=Sym(12); 

X:=S!(1, 2) ( 5) (4, ©) (7, 9) (8, 10) (11, 12); 
Y:=S!(1, 3) (2, 5) (4, 7) (6, 9) (8, 11) (10, 12); 
Z:=S!(1, 4, 8) (2, 6; 10) (3_ Fp V1) Ca, Spo L2G 
W:=S! (1, 2) (3, 5) (4, 7) (6, 9) (8, 12) (10, 11); 
U Bet 5) (2, 3) (4, 6) (7, 9) (8, 11) (10, 12); 
N:=sSsub<S|X,Y, 2, W,U>; 


£,N1,k:=CosetAction(N, sub<N|Id(N)>); 
NL:=NormalLattice(N1); 


Considering the normal lattice of N, we determine NL[5] of order 4 (largest abelian) as 


a possible factor of N. 

gq, ff:=quo<N1|NL[5]>; 

Next we want to know what NL[5] is isomorphic. To do this we construct the following 
argument and use Magma’s presentation of NL[5]. 


& KTH [2.2 
> IsIsomorphic (NL[5],AbelianGroup (GrpPerm, X) ); 
true 


FPGroup(NL[5]) gives us H < a,b >:= Group < a, b\a?,b?, (a * b)? > as our 
presentation for H. We can choose to use any known presentation for H however, we 
will be required to make mappings if we choose to do so. For this reason, we will use 


Magma’s FPGroup. From here we shall investigate q. 


We have stored G/H = q with hope to determine what q is. We consider the 
normal lattice and realize NLq/10] is an order 12 abelian group. We quickly determine 


q = (2? x 3). Now, we want a presentation of q and Magma gives us the following 
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presentation. 


Q <c,d,e >:= Group < ¢,d,e|c’, d?,e?, (c*d)?,c*e |*cxe,dxe t*d*e>; 


We want to produce a semidirect product so to do this we need the elements 
of q written in terms of N. We look to the transversals of N right multiplied by the 
elements of NL[5] which will give us the permutations in q. Specifically, we want to 
determine the generators of q; as these 3 elements will give us the entire group. To do 
this, we run the following loop, once we determine what value q has stored its generators 


(q:1jq-2,...,0r-q.12) 


for iin [1..#T] do if ff(T[i]) eq g.1 then i; end if; end for; 
/* store as C x/ 
for iin [1..#T] do if ff(T[i]) eq g.2 then i; end if; end for; 
/xstore as D x/ 
for iin [1..#T] do if ff(T[i]) eq g.3 then i; end if; end for; 
/xstore as E x/ 


Now, we can use the Generators(NL[5]) command and store all 5 of our gen- 


erators as: 

A: Se ee 8) (3, 5) (4, 6) (9, 20) (10, 19) (11, 18) (12, 17) 
(13, 6) (1 35) (15, 34) (16, 33) (21, 45) (22, 46) (23, 47) 

(24, ee 43) (26, 44) (27, 41) ( 42) (29, 38) (30, 37) 

(31, 40) (32, 39); 

B: caer re LI) (3,. 103-¢4;5. 9) 65; 19) (6; -20) (77 1F7)-08; 18) 
(1 1) (1 )G2 5). 43) -Ch6;- 44) (227 “B80. (225 -32)°(23;. (29) 

(24, oe 34) (26, 33) (27, 36) (28, 35) (37, 48) (38, 47) 

(3 6) (40, 45) 

Cs aed 5) (2, 6) (3, 7) (4, 8) (9, 18) (10, 17) (11, 20) (12, 19) 
(13, 25) (14, 26) (15, ) (he, 28)-(27;, 29) (22,. 30) (23; 32) 

(2 Sere 42) (34, 41) (35, 44) (36, 43) (37, 46) (38, 45) 

(3:9; 8) (4 47); 

D:=N1!(1, 9) (2, 10) (3, 11) (4, 12) (5, 18) (6, 17) (7, 0) (8, 19) 
(13,. 338)(14, 34) (£5, 35) (65: 36): (21;,.-37):(22; ee 39) 

(24, 40) (25, 42) (26, 41) (27, 44) (28, 43) (29, 46) (30, 45) 
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(31, 48) (32, 47); 


B:=N1!(1, 13, 21) (2, 14, 22) (3, 15, 23) (4, 16, 24) 

(5; 25,7. .29)-C6;° 26, 30)7,- 27). 31)(8> 28. -32)-C9, 33% 3:7) 
(10, 34, 38) (11, 35, 39) (12, 36, 40) (17, 41, 45) 

(18, 42, 46) (19, 43, 47) (20, 44, 48); 


Now, we check the action on A by the generators of q using the following code: 


> for i,j in [1..2] do if A°C eq A°ixB*j then i,j; 
for|if> break; end if; end for; 
ite 

for i,j in [1..2] do if A°D eq A*ixB*j then i,j; 


for|if> break; end if; end for; 
12 
for i,j in [1..2] do if A°E eq A*ixB°j then i,j; 
for|if> break; end if; end for; 

1] 


> for i,j in [1..2] do if B°C eq A°ixB*j then i,j; 
for|if> break; end if; end for; 

Dee 
> for i,j in [1..2] do if B°D eq A°i*B*j then i,j; 
for|if> break; end if; end for; 

21 
> for i,j in [1..2] do if B°E eq A°i*B*j then i,j; 
for|if> break; end if; end for; 

LS 


From the response, we determine a° = a,a? = a,a® = ax b,b° b, b¢ b, b& a 


which will have constructed a semi direct product when inserted into our presentation 


containing the elements of both Q and H. After all is considered we have 


H <a,b,c,d,e >:= Group < a,b,c, d, e|a”, b”, (a * b)?, c?, d?, e°, (c* d)’, 


cxetxcxe,dxe'*dx*e,a° =a,a4 =a,a° =a*b, 0° = b,b4 = b,b° =a>; 


constructed to be 2? : (2? x 3) which turns out to be isomorphic to N which we verify 


through Magma. 
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3.5.2 Verification of 2° : A; 
We begin the process with the presentation of G given as follows: 


G<x,y,Z,W,u,t>:=Group<x, y,Z,w,u,t|x°2,y°2,Z2°3,w' 2,uU°2,y X=y, 
Z°X=Z,Z° Y=Z,W X=W, W° y=W, W Z=U, U X=U, U Y=U, U Z=weu, 
u°w=u,t72, (t,x*y*w), (t,y*xu), (k*z*t) 75, (y*z>-1*t) °5, 
(x*y*UxZ>-Lxt) 75>; 


We use the coset action to convert this presentation into permutations and 


consider the composition factors of G: 


> CompositionFactors (Gl); 
G 


Alternating (5) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


We note that this group has no center but based on the composition factors does have 


a largest abelian group which can be factored since it is clearly abelian up until As. 


Looking at the normal lattice of G we note the normal subgroup of order 256 
as 2°. Now, we verify the group is not a direct product by asking Magma, constructing 
the following direct product: 


So LADO FO OOO 
>E 


E:=DirectProduct (Alt (5),AbelianGroup (GrpPerm, X)); 
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> IsIsomorphic(E,Gl1); 
false 


so we can proceed to factor NL[5] from G1 as follows: 


gq, ff:=quo<Gl1|NL[5]>; 


Now, we need a presentation of both NL[5] and q. NL[5] is 2° which is easily constructed 
having 8 elements of order 2 which all commute. This is given by: 
K<a,b,c,d,e,f,g,h>:=Group<a,b,c,d,e,f,g,h|a°2,b°2,c°2,da°2, 
e°2,£°2,g°2,h°2, (a,b), (a,c), (a, d), (a,e), (a, f£), (arg), (a,h), 
(b,c), (b,d), (b,e), (b, £), (6, g), (b,h), (c,d), (c,e), (c,£), (Cc, 9g), 
(c,h), (d,e), (d,£), (d,g), (d,h), (e, £), (e,9g), (e,h), (£,9), (£,h), 
(g,h)>; 


Now our presentation for q we can obtain using FPGroup(q); gives us the following 
presentation for q: 
O<1 > F=Gr6up< L443; 473 a 12, 
(L°-L*j*i*-1*43°-1)°*2>; 

The process conducted from here on out will determine the action of Q on K. 
We know that if we can express the elements of K in terms of Q this will demonstrate a 
semidirect correspondence since K is abelian and thus normal in G and Q is not normal 


in G. How we will do this is through the transversals of G with regard to NL[5]. 


We construct the transversals and then determine which T[i] has been assigned 


to the generators of q. 


> Generators (qd); 


} 

> T:=Transversal(G1,NL[5]); 

> for iin [1..#T] do if ff(T[i]) eq q.1 then i; 
for|if> end if; end for; 


> for iin [1..#T] do if ff(T[i]) eq q.2 then i; 
for|if> end if; end for; 
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Now, we need to store these as well as the generators of NL[5]. These are very 
long permutations but can be found in the appendix. We will refer to the generators 
of NL[5] as A,B,C,D,E,F,G, and H and the generators of q (T[3] = q.1, and T/14] = 
q.2) as, land K. Once we have stored these in Magma we can use the following code to 


determine the action of I and K on A,B,C,D,E,F,G, and H. 


> for g,r,s,t,u,v,w,x in [1..2] do 

for|if> if A°I eq A°q*B°r«C*sxD°*txEB*uxF “v+G wh? x 
for|if> then g,r,s,t,u,V,W,xX; 

for|if> end if; end for; 

be2 22.2 2-1 

> for g,r,s,t,u,v,w,x in [1..2] do 

for|if> if A°J eq A°q*B°r«*C*s*xD°*t*E“uxF v*G wh? x 
for|if> then g,r,s,t,u,V,W,x; 

for|if> end if;end for; 

2d 2D A BD? 2 


As indicated by the code, we are taking the generator A of NL[5] and con- 
jugating by the generator q.1 (expressed in the transversal T[3]). What this does is 
generate the power to which each generator should be raised to. Since all the ele- 
ments in NL[5] are order 2, any entry for q,r,s,t,u,v,w, and x can be left out of the 
presentation. This tells us a’ = a*g*h and a) = b*d*e are part of our pre- 
sentation. We will ultimately repeat this process for each of remaining generators of 
NL[5] (B,C,...,H), which will tell us the action of Q on K. The other relations are: 
bb =b,0) =axh,c¢ =d,0 = f,d =c,d) =d,e' =b*cxdee,e) =axbed f xh, 
fi=cedxfxh fi =h,g = 9,9 =cxd*xexg,h' =h, and hi =c. 


Now, if we take the presentation of K and Q from earlier, and introduce the 
action of Q on K, we will have effectively produced a semidirect product among a known 
Q and K and proved itto be isomorphic to our original G. To finish off the process we 


construct the presentation and ask Magma to verify the isomorphism. 


Z<a,b,c,d,e,f,g,h,1i, }>:=Group<a,b,c,d,e,f,9g,h,i,j3|/1i°2,3°3, 
a°2,b°2,c°2,0°2,e°2,f£°2,g°2,h°2, (a,b), (a,c), (a,d), (a,e), 
(a,f),(a,g), (a,h), (b,c), (b,d), (b,e), (b, £), (6,9), (b,h), (c,d), 
(c,e), (c,f£), (c,g), (c,h), (d,e), (d, £), (d,g), (d,h), (e, £), (€,9), 


VVV WV 
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( 7h) 1 (£,9) , (£,h) 1, (g,h) 1, (i* 37-1) Oy a“ i=axg*h,a* j=b«dxe, 
b°i=b,b* j=a*eh,c*i=d,c° j=f,d°i=c,d* j=d,e°i=b*«cxdre, 

e° jJ=axbxdxfxh, f*i=c*dx*fxh, £* j=h, g*i=g,g* j=cx*dx*exg, 
h*i=h,h* j=c>; 


VV VV 


> £,21,k:=CosetAction(Z,sub<Z|Id(Z)>); 
> if IsIsomorphic(Z1,G1l) then true; end if; 
true 


This of course verifies G = 2° : As 


3.6 Mixed Extensions 


Mixed extensions are a combination extension. When we complete a semidirect 
product there is a possibility that the group we have constructed is not isomorphic to 
the original G. If this happens, we must check to see if a central extension takes place 


which gives us the mixed extension denoted :* indicating a mixed extension takes place. 


3.6.1 Verification of G = 4 :* PGL2(7) 


We have obtained the finite presentation G with composition factors: 


> CompositionFactors (Gl); 
G 
Cyclic (2) 
* 
A(1, 7) = L(2, 7) 
* 
Cyclic (2) 
* 
Cyclic (2) 


Now, we consider the normal lattice of G and note that NL[3] is the largest abelian 


subgroup. We determine that NL[3] = 4 and has the given presentation: 


H <a, >:= Group < a,b|b?,a~-? =b > 
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This of course is not the usual presentation of Z, however we will use this to establish a 
systematic approach to determining mixed extensions. Now, considering G/Z4 = q we 
use Magma to determine the quotient and establish that q = PGL2(7) as follows: 

> g, ff£:=quo<G1|NL[3]>; 


> IsIsomorphic(q,PGL(2,7)); 
true 


Now, taking the FPGroup(q) presentation we have Q given by the presentation: 


Q <c,d,e,f >:= Group < c,d,e, f\c?, d’, e”, f?, (cx e)’, (dxe)?, cxd*cxd*e, 
(dx fxe)*, fxd« fxd fxe,fxcxex fxce fxexce feck fxcedefxcxerxfxc>. 


Since we can determine that the elements of q do not commute with the ele- 
ments of k, we know that we do not have a direct product taking place. We proceed 
considering Q’s action on K as a semidirect product. We look for the generators of H 


(NL[3]) and Q (Transversals) in G and determine them to be: 


ROSGIl C140 168) A (Oy S85. “TST; 1DONG;, 109, 465). 119) 
(4, 117, 166, 134) (5, 118, 164, 98) (6, 93, 163, 110) 

(7, 111, 162, 82) (8, 104, 159, 79) (9, 94, 160, 95) 

(105 0%e Deis: APO CT. 6a ASS TPS. TO, ey. sea) 

(13, 90, 154, 66) (14, 78, 156, 101) (15, 54, 153, 106) 

(16, 107, 151, 50) (17, 85, 147, 76) (18, 55, 155, 92) 

(19, 74, 145, 68) 67, 150; 86) (21, 128,142, 45) 
( 
( 
( 
( 
( 
( 
( 


68 

56 
25, 69, 138, 84) 83, 135, 60) (27, 89, 149, 71) 
28, 75, 146, 65) 426) TAG, 32)(80 7-182. 130%:-40) 
Biy. AR, 1325 AOS) (3, 57, A25¢ 100) (34. 95,120, 49) 
ASy. 58, DS6, 88) (36¢- 287% 137s VOI 127 148) 70) 
89,1532 TiS. aad, DTG, TES. 49) (ae, POT. 103.. 48) 
47, 102, 124, 59) (51, 96, 97, 52) (62, 80, 81, 63) 


(20, 

225) Sl 143, ) (23, 43, 152, 108) (24, 38, 139, 127) 
(26, 
(29 


B:=G1!(1, 168) (2, 167) (3, 165) (4, 166) (5, 164) (6, 163) 
(7, 162) (8, 159) (9, 160) (10, 161) (11, 158) (12, 157) (13, 154) 
(14, 156) (15, 153) (16, 151) (17, 147) (18, 155) (19, 145) 
(20, 150) (21, 142) (22, 143) (23, 152) (24, 139) (25, 138) 
(26, 135) (27, 149) (28, 146) (29, 140) (30, 130) (31, 132) 
(32, 1263NS3;. 125)-(34,- 120) 135, 136)-(36,. 137) (87, 248) 
(38, 127) (39, 115) (40, 131) (41, 113) (42, 116) (43, 108) 
(44, 105) (45, 128) (46, 103) (47, 124) (48, 121) (49, 99) 


107) a 
99, (100, 103) (101, 123) (104, 122) (105, 127) (106, 108) 
109, 118) (110, 112) (113, 130) (116, 131) (117, 133) (120, 124) 


(50, 107) ( 7) (52, 96) (53, 114) (54, 106) (55, 92) (56, 91) 
(57, 100) ( 8) (59, 102) (60, 83) (61, 122) (62, 81) (63, 80) 
(64, 123) ( 5) (66, 90) (67, 86) (68, 74) (69, 84) (70, 72) 
(Tp B9VUIS, BTVC76,. BS) (TT. 1129-0784 - 100). (79,04). (82, 117) 
(93, 110) (94, 95) (98, 118) (109, 119) (117, 134) (129, 133) 
(141, 144) 

GeSG1 Io. “SV. BVAG > BChie VI (Ss IOS Des, ae Ba) 
(16, 24) (18, 28) (19, 26) (20, 25) (22, 31) ( 29) (30, 39) 
(32, 43) (33, 46) (34, 49) (35, 37) (38, 50) ( 53) (41, 52) 
(42, 51) (44, 56) (45, 54) (47, 59) (48, 57) (55, 65) (58, 70) 
(60, 74) (61, 77) (62, 80) (63, 81) (64, 82) ( 85) (67, 84) 
(68, 83) (69, 86) (71, 89) (72, 88) (73, 87) ( 92) (76, 90) 
(78, 95) (79, 93) (91, 105) (94, 101) (96, 113) (97, 116) (98, 117) 
(99, 120) (100, 121) (102, ree 125) (104, 110) (106, 128) 
(LO. TAN es TOS). (109: TON. eS IS Oy ara? 3) 
(115, 130) (118, 134) (119, 138) (30) 43) (135, 145) (136, 148) 
(138, 150) (139, 151) (140, 152) (141, 144) (142, 153) (146, 155) 
(147, 154) (156, 160) (157, ae 62) (159, 163) (164, 166) 
(165, 167) 

De=SG1 (25. A) (Gy BY TOYS) TS TAS, T8yt1sy 23) 
(HG O31. DS-4O,A BONG SRG, OSV 427, S5y OS, 31) 
(30, 40) (32, 44) (33, 47) (34, 48) (36, 37) (38, 45) (39, 51) 
(41, 42) (43, 50) (46, 49) (52, 53) (54, 56) (55, 66) (57, 59) 
(58, 71) (60, 75) (61, 78) (62, ee 79) (65, 83) (67, 68) 
(69,76) 705. STY-U12). 73) (I4y- 86) (77, 82) (0; bey 85) 
(88, 89) (90, 92) (91, 106) (93, ae 4, 110) (96, 114) (97, 115) 
(98, 118) (99, 103) (100, 102) (101, 122) (104, a 126) 
(LOR AGSI169%> 5) (LI, TT 1S 3 V6) a7. 129) 

(120. ABLY (TOA, 125) (127 e 128) (130 “T3809 ers es, 1.40) 

(133, 134) (135, 146) (136, 149) (137, 148) (138, 147) (139, 142) 
(141, 144) (143, 153) (145, 150) (151, 152) (154, 155) (156, 157) 
(158, 159) (160, 163) (161, 162) (166, 167) 

E: eee 4) (3, 5) (6, ee ee ey 14) (13, 19) (15, 23) 
(ibe GOP (LT: Bey (ies 20y 42 9) (24, 31) ( 28) (27, 36) 
(30, 41) (32, 45) (33, en ZL) (357. SUVA 44) (39, 52) 
(40, oe 54) (46, 57) (49, 59) (50, 56) (51, 53) (55, 67) 
(58, 72) (6 ee oe 8) (65, 84) ( 68) (69, 75) 
(705-88) (71 TSS. DOH 3) (82, 95) ( ae 92) 
(87, 89) ( oo an 14) (98, 119) 

( 

( 


for q,r in [0. 
for> end for; 
> fox q7e an, -PO% 
for> end for; 
> eae q,r in [0. 


r> end for; 
0 


> LOY gy im [Oued 
r|if> eq A°q*B” 


r> end for; 
0 


> fOr Gr) any POC 
r|if> eq A°q*B” 


r> end for; 


-1] do if A°E 
r|if> eq A°qxB°r then g,r; end 


2 £OF sq,ye rin [Oca 
r|if> eq A°q*B” 


POT TIS\(1IG, 128) (129, 134) (2 

137, 149) (138, 146) (140, 142) (1 

152, 153) (156, 158) (157, 159) (1 

166, 167) 

:=G1! (1, ae o 1). (8) ae 
LDF (18. 23) 5D) (21, 30} 
8, 37) (29, 38) 42) (35, 48) 
3, 55) (46, 58) 60) (50, 61) 
6, 68) (57, 69) 73) (65, 70) 
B. MiB nas 94) (80, 96) 
4, 100) (85, neers eee 
3, 109) (95, 112) (105, 113) (106 

11T, 128) (116, 132) €120; 135)°% 

125, 138) (126, 139) (127, 140) ( 

133, 144) (143, 145) (146, 148) ( 

152, 155) (153, 158) (154, 159) ( 

167, 168) 


ei] doit AXE 
r|/if> eq A°qxB*r then qg,r; end 


-1] do if A*D 
r|if> eq A°qxB°r then g,r; end 


] do if A*F 
r then q,r; end 


] do if B°C 
r then q,r; end 


] do if B°D 
r then q,r; end 


32, 139) (1 


43, 151) (1 


60, 162) (1 


56 


136, 148) 
150%, 255) 
164, 165) 


9, ee 
(2 32) 

(3 47) 

(5 62) 

(66, 79) 

(8 97) 
cee 
EPO TOT; 
AD SE8 6) Ci 
OS St) 
147, 149) 
160, 161) 


BiB 


Ley 


ae 


IES 


ale 


Aes 


99) 


04) (92, 108) 
LO, 119) 


130, 142) 


Lede LS 7) 
163,165) 


Now that are stored we will determine the action of Q on K using the code: 
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for> end for; 
O01 
> forcg,r an«[0..1)] do Tf BE 
for|if> eq A°q*B*°r then q,r; end if; 
for> end for; 

0) 
> for q,r in [0..1] do if B°F 
for|if> eq A°q*B°r then qg,r; end if; 
for> end for; 

0 7 


Adding a = a* b,a4 = a*b,a® = a,al = a,b° = b,b4 = b, b° = b, and bf = b to our 


presentation of PGL2(7) and Z,4 we have the following presentation of the group Z we 


have constructed: 


Z <a,b,c,d,e, f >:= Group < a,b,c, d,e, f|b?, a” = b, c*, d”, e”, f?, (cxe)?, (dx 
e)?, cxdxcxdxe, (dx fxe)*, fads fade fixe, fxcxex face fxexce fxcx fxcxde fxcxex fc, a° = 


GXb.e" Sos 6.0" Soa! Sob Sb.07 = 6.6 Shh Sp 


Now, we attempt to determine the #Z but it is still infinite. This indicates 
either an error in the semi-direct product we have constructed or that a central extension 
exists. We proceed knowing we have made no such errors. The central extension will 
appear in the form of writing the elements of Q in terms of K. We run a similar code 
but replace the conjugation of AC from earlier with the relations from Q. Since only 


one of these relations produces a relation, we have: 


> for q,r in [0..1] do if FxCxExFxCxP xb x Cub x Cx xe CxDe Fx CK EXE XC 
for|if> eq A°q*B°r then q,r; end if; 

for> end for; 

121 


which implies f*c*e*f*c*f*e*c*f*c*f*c*d* fc*e* fc = a*b. Adding this to the presenta- 
tion of Z, fixes the issue and we have thus constructed the mixed extension 4 :* PGL2(7) 


which turns out to be isomorphic to G. 
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3.6.2 Verification of M = 2*:* Sy 


When we find a group such as G & Mj : 2 on a relatively small N such as 
2? : (2? x 3) it becomes necessary to determine a maximal subgroup of G so that we 
can perform the process of double coset enumeration over the maximal subgroup M. In 
this instance, we still require to know what group we are speaking of and fortunately 
this subgroup provides us with an example of a mixed extension. 


2*12.(2?)° Ay 
(axt)3 ,(zxt)? zatxuxtezavete2— latazataz— let 


We determine M = 


by considering the 


composition factors of M. 


> M:=Ms[7] ‘subgroup; 

> M; 

Permutation group M acting on a set of cardinality 3960 
Order = 384 = 2°7 x 3 

> CompositionFactors (M); 

G 
Cyclic (2) 
Cyclic (3) 
Cyclic (2) 
Cyclic (2) 
Cyclic (2) 
Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


We have composition series My D Mz > M3 D M4 > Ms D Meg D> M7 D Mg D> 
1 where M = (Mj /Mp2) - (Mi /M2) - (M2/Ms) - (M3/Ma) - (Ma/Ms) «(Ms /Me) - (Me/M7)- 
(M7/Msg) : (Mg /1) or M = C2 C3 “Co “Co “Co -Co “Co Co. 
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We will now look for the largest order abelian subgroup in the normal lattice as 
this will indicate a possible direct product taking place. One should note that multiple 
subgroups in the normal lattice can be abelian with equal highest degree. In the event 
that this happens choosing either subgroup will produce different isomorphism types 
however, the two isomorphism types are isomorphic to each other as well as M so either 
suffices. 
> NL:=NormalLattice (M); 


> NL; 
Normal subgroup lattice 


13 Order 384 Length 1 Maximal Subgroups: 10 11 12 


[12] Order 192 Length 1 Maximal Subgroups: 9 
11 Order 192 Length 1 Maximal Subgroups: 9 


ct ct 


10 Order 192 Length 1 Maximal Subgroups: 8 9 
9] Order 96 Length 1 Maximal Subgroups: 6 7 
8 Order 64 Length 1 Maximal Subgroups: 4 


7 Order 48 Leng 
6] Order 32 Leng 


h 1 Maximal Subgroups: 5 
h 1 Maximal Subgroups: 3 5 


ct ct 


5 Order 16 Length 1 Maximal Subgroups: 2 

4 Order 16 Length 1 Maximal Subgroups: 3 
-_ Order 8 Length 1 Maximal Subgroups: 2 
121 Order 4 Length 1 Maximal Subgroups: 1 
fe Order 1 Length 1 Maximal Subgroups: 


We will proceed by determing what NL[4] is isomorphic too. We determine: 


> X:=[2,2,2,2]; 
> IsIsomorphic (NL[4],AbelianGroup (GrpPerm, X) ); 
true 


Now, we create a presentation for NL[4] as: 


60 
K <a,b,c,d >:= Group < a,b,c, dla, b*, c?, d’, (a,b), (a,c), (a, d), (b, c), (b, d), (c,d) > 


Factoring subgroup M by NL|4] we normally would look at the normal lattice 
of q and determine what q is but since q is order 24 we determine quickly that q = S4. 
We determine we do not have a direct product between NL[|4] and q so we must de- 


termine the action of Q on K. The presentation of q = S4 obtained from FPGroup(q) is: 


g*fxh,f-l*xe**f*eg> 


Now, we begin the process of determining the action of Q on K by labeling the 


generators of NL|4] and the generators of q as follows: 


> T:=Transversal (M,NL[4]); 


> for iin [1..#T] do if ff(T[i]) eq q.1 then i; 
for|if> end if; end for; 

T[4 

> for iin [1..#T] do if ff(T[i]) eq q.2 then i; 
for|if> end if; end for; 

T[2 

> for iin [1..#T] do if ff(T[i]) eq q.3then i; 


if> end if; end for; 


for iin [1..#T] do if ff(T[i]) eq q.4 then i; 
if> end if; end for; 
T[10] 


= 
KR MmhNwAH 


> A:=NL[4].1; B:=NL[4].2; C:=NL[ 
> E:=T[4]; F:=T[2]; G:=T[7] = 


One should note that we have stored these permutations in a file. They are not shown 
here as they take up a lot of space. As before we use the code that will conjugate the 
generators of K by the generators of Q, and give us a word that is equal in terms of K. 
We will show only A, but the other generators B, C, and D have had this code run on 


them as well. 


> for q,r,S;t in [O...1] -do it A*E 
for|if> eq A°q*B*r«C*s*D*t then g,r,s,t; end if; 
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for> end for; 
1 Lt L090 


> for q,r,s,t in [0..1] do if A’F 

for|if> eq A°q*B*r«C*s*D*t then g,r,s,t; end if; 
for> end for; 

1001 

> 

> forvg, r,s )t any |[Os-21] -do: tt ASG 

for|if> eq A°q*B*r«C*s*D*t then g,r,s,t; end if; 


for> end for; 

TO 

> 

> for gprs, t an. L0..1] do 1f Ava 

for|if> eq A°q*B*r«C*s*D*t then g,r,s,t; end if; 
for> end for; 

1010 


Now, this indicates to us that the a = a*b*c,af =a* f,al =a f, and a” =ax*c 
in our presentation. Once we have constructed these relations (for B,C, and D) we will 


add them to the overall presentation Z which contains all the elements from H and Q. 


Z <a,b,c,d,e, f,g,h >:= Group < a,b,c,d,e, f,g, hla’, b?, c*, d?, (a, b), (a,c), 
(a, d), (b,c), (b, d), (c,d), e*, f°, 97, h?,g*e? eh, (ex f-')?,e 1 *g*xexh, 
frl«gx* fh, fol *e 7 «* f*g,a® =a*xbecaf =axd,a9 =axd,a" =axc, 
be = bxcxd,bf =b*xcxd,b9 =b*cxd,b" =bed,c& =c,cl =cxd,9 =, 
c’ =¢c,d° =cxd,df =c,d9 =d,d"’ =d> 


Upon asking Magma if this is isomorphic to M we determine this to be false. 
This introduces the possibility of a central extension existing between our subgroups. 
Similar to the code before, we will check each relation in Q to determine how, the ele- 


ments in K act on Q. We proceed using the following code: 


> for°q, r,s, tc. any [0.1] dor tt B74 

for|if> eq A°q*B*r«C*s*D*t then g,r,s,t; end if; 
for> end for; 

0010 


> 
fo 
fo 
iL 


FOr Git; Spt. an 


r> end for; 
beds 


> for <q;,.rs,;t. in 


fo 
fo 
0 
> 
fo 
fo 
0 


r> end for; 
0 0 0 
FOr GQ, fy Spt an 


r> end for; 
0 0 0 


> LOR “qf ,S,e an 


fo 
fo 
0 
> 


r> end for; 
0 0 0 
for g,r,s,t in 


[Ons 
r|if> eq A°qxB>rxC*sxD*t 


[O. 


[05:6 
r|if> eq A°q*xB°rxC*sxD*t 


[0% 


[Ors 


-1] 
r|if> eq A°qxB°rxC*sxD*t 


sk] 
r|if> eq A°qxB>rxC*sxD*t 


sak] 


| 


do 


do 


1] 


do 


do 


do 


for|if> eq A°q*B>r*C*s*D*t 


fo 
0 


r> end for; 
11 


> LOY qr; s;e an 
for|if> eq A°q*B°r*C*s*xD*t 


fo 
@ 


r> end for; 
QO): A410 


> for q,r,s,t in 
for|if> eq A°q*B°r*C*s*D*t 


fo 
@ 


r> end for; 
0 0 0 


> LO -qy-f 8... an 


for|if> eq A*qxB” 


fo 
0 


r> end for; 
11 


[O. 


[O. 


[O. 


.1] 


-1] 


.1] 
r*C* 


do 


do 


do 
s*xD*t 


A ES 
then q;,:.6)S7 t; 


if G2 
then q,r,s,t; 


a ae 
then q,r,s,t; 


if G*eE*°2x*H 
then q,r,s,t; 


if (E*eF*-1)°*2 
then q,r,s,t; 


if E*°-1*G*E*H 
then q,r,s,t; 


if F°-1*G*F*H 
then q,r,s,t; 


end 


end 


end 


end 


end 


end 


end 


if F°-1*E*-2«F«G 


then q,r,s,t; 


end 


auefere 


aris 


alin 


AEs 


ate 


aif 


albige 


aif 
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Now, since these elements already exist in the presentation Z, we change the entry e* 


to e+ = c, as Magma tells us, until we achieve the final presentation for Z, determine 


it in permutations and ask Magma if our constructed group which is 24 :* $4 is in fact 


isomorphic to M. The following Magma command shows this thus ending our mixed 


extension. 


VVVV 


Z<a,b,c,d,e,f,g,h>:=Group<a,b,c,d,e,f,g,h|a°2,b°2,c°2,a°2, 
(a,b), (a,c), (a,d), (b,c), (b,d), (c,d) ,e@° 4=c, £*3=axbxcxd, g°2, 


neo. 


gxe°2«h, (exf*-1) “2=bxcxd,e* 


lxgxexh=c, £* 


f°-lxe*-2«fxg=b«cx«d,a*e=axb«c,a* f=axd,a* g=axd, 


lsegxfxh, 
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> a*h=axc,b°e=b«cx«d,b* f=b«crd,b* g=b*«crd,b h=bed, 
> c°e=c,c° f=cxd, c°g=c,c h=c, d*e=cxd, d* f=c, d* g=d, 
> d*h=d>; 

> 

> £4,24,k4:=CosetAction (Z, sub<Z|Id(Z)>); 

> s,t:=IsIsomorphic(Z4,M); 

> Ss; 

true 


3.7 Conclusion 


Isomorphism types rely on a person’s ability to break down groups into smaller 
pieces and investigate them according to known groups. Magma is very convenient in 
this process and allows groups to be identified and verified quickly. Identifying the 
largest abelian subgroup of N, is typically the first step in the process. Once this has 
been done we can investigate the remaining pieces by constructing either a semidirect, 
central, or mixed extension and determining if our group is isomorphic to the group we 


have constructed. 
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Chapter 4 


Double Coset Enumeration 


4.1 Introduction 


Double coset enumeration was a technique invented by Todd in the 1930’s. His 
technique was designed to solve word problems in group theory. Double coset enumer- 
ation gives us a faster way to verify single coset enumeration. Curtis, an author related 
closely to the our field of study has used manual double coset enumeration to generate 
many of the famous simple sporadic groups. While the process has been around for 


nearly a century, the process’s intricacy never falters. 


Double coset enumeration is most practical when used to determine finite 
groups as we can construct a Cayley diagram to verify the symmetry of our work. 
The process can be challenging and requires techniques such as substitution and conju- 
gation. While the process, can be completed manually in most instances Magma is very 
handy when the process requires a maximal subgroup containing our control group N. 
This chapter will show examples of manual double coset enumeration performed over 


the control group N and Maximal double coset enumeration performed with Magma. 
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4.2 Manual Double Coset Enumeration of 


PSL3(4) : 2 over Mio 


When we begin a double coset enumeration, there are a few checks we can 
perform to help us know we have in fact completed the process correctly. The first check 
is to determine the number of single cosets that will appear in our Caylee diagram. To do 

: G PSL3(4):2| __ 40,320 
this, we calculate ~ =! es | 70 


should equal exactly 56 in our Caylee diagram. The next helpful piece of information 


= 56. This means the sum of all single cosets 


is to ask Magma to determine: 


>#DoubleCosets (G, sub<G|x, y>, sub<G| x, y>) ; 
3 


This tells us there are 3 double cosets and gives us a rough estimate of what our Cayley 

diagram will look like. We now proceed with the manual double coset enumeration of 
PSL3(4) : 2 over Mo. 

Given the progenitor 2*!° : Myo factored by the relation ((y~!x)%t)> where 

(1, 2)(4, 5)(6, 7)(8,9) and y = (1,3, 4,6)(7, 8, 10,9) we proceed allowing t ~ t; and 


== 
I = (yt)? we compute the relation as follows: 


(It)> =e 

ee ete 

(1, 2; 3, 4, 5, 6, 8, 7)(9, 10)t5t7t3teti =e 
(1,2, 3,4, 5,6, 8, 7)(9, 10)tst7 = tytgts 


Let G = qagasee nd tenmnce With N =< (1,2)(4,5)(6, 7)(8,9), 
(1,3, 4,6), (7,8,10,9) > and t ~ t;. Using our definition of a double coset NwN = 
{Nw"”|n € N} we consider our first double coset NeN = {Ne"|n € N} which we denote 
by [*]. Our control group N is transitive on {1, 2, 3, 4, 5, 6, 7, 8, 9, 10} so it has a 
single orbit {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}. We choose a representative from the orbit, 1 in 
this case, and determine what double coset Nt; belongs to. This new double coset will 


be labeled as [1] and will contain Nt;N = {Nti, Nto, Nt3, Nta, Nts, Ntg, Nt7, Nts, Nto, 
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Ntio}. We will now investigate the coset stabilizer N“ which is the point stabilizer N1. 


Considering N“) there are 72 elements in the point stabilizer. The 72 elements 
are generated by the following permutations N“) =< (2,8,3,7)(4,9, 6,5), (2,8,3, 7) 
(4,9, 6,5), (3, 7, 10,9)(4,8,5,6) > and this indicates that there are oy = a = 10 
possible single cosets. Considering the generators of N“) we note that the orbits of 
N® on {1, 2, 3, 4, 5, 6, 7, 8, 9, 10} are {1}, {2, 3, 4, 5, 6, 7, 8, 9, 10}. We take a 
representative from each orbit and determine to which double coset Ntit; and Ntyte 
belong. Since our t’s are all of order 2, Ntit; € Ne € |x] so this double coset goes 
back to the double coset [x]. Now, Nt tg € Ntit2N is a new double coset and our 9 


symmetric generators are carried to our next double coset [1 2]. 


We continue the process by considering the coset stabilizer N“?) which we 


determine using Magma. Now N“@2) > N!? = < (3,8, 10,6)(4, 9,5, 7), (3, 7, 10, 9) 


|N| 720 
ING@2)| = 3 


the beginning of this process we know that there are a total of 56 single cosets in our 


(4,8, 5,6) > and the number of single cosets 


= 90. Due to our diligence at 


Caylee Diagram. We have already used 11 of those single cosets in our double cosets 
[x] and [1]. This means we have 45 single cosets remaining and only the coset [1 2] to 
put them in. This indicates our cosets have equal names and the relation increases our 
|N (12)| from 8 to 16. To understand why this has happened, we look to the relation 
(1, 2, 3, 4, 5, 6, 8, 7)(9, 10)t5t7 = tytets. 


We can use Magma to tell us which cosets are equal but then must solve the 
relation by hand. The code for this can be found in the appendix and Magma tells us 
that Ntjtg = Ntot;. To prove this we must look to our N. We determine a permutation 
in N which fixes t; and tz but sends tg to t2 using Magma. We proceed as follows: 

(1, 2,3, 4,5, 6, 8, 7)(9, 10)tst7) (2:9:10.9)(48:75) = (t,tgtg)(2910,6)(4.8,7,5) 

1,9, 3,8, 4, 2, 7,5)(10, 6)tats = tytet3 

1,9, 3,8, 4, 2, 7,5)(10, 6)tatst3 = tite (we save this momentarily). 

(1, 2,3, 4,5, 6, 8, 7)(9, 10)tst7) (147) (2.6.5)(8,9,10) — (t, ¢¢t3) 647)(2,6.5)(8,9,10) 

4,6, 3,7, 2,5,9,1)(10, 8)taty = tatstz (now substituting to the saved relation above). 
1,9, 3,8, 4, 2, 7, 5)(10, 6)[(4, 6, 3, 7, 2,5, 9, 1)(10, 8)tot1] = tte 


NN NS 
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Ntot, = Ntyto. 


Which verifies our relation Magma told us as well as the fact that there are 
56 single cosets in our Cayley Diagram. Similarly the other 44 cosets that are equal 
can be proved by hand. Finally, the orbits of N@?) on the set {1,2,3,4,5,6,7, 8,9, 10} 
are {1,2} and {3,4,5,6,7,8,9,10}. Now, Ntitote € Nt, € [1] so {1,2} go back to 
[1]. Considering Ntitot3 = Nt4ts we conjugate (3, 10)(4,5)(6,8)(7,9)tati = tite by 
(1, 4)(2, 5)(3, 10)(6,7) € N and note (1, 2)(3,10)(6,9)(7, 8)tst4 = tats or more impor- 
tantly Ntst4 = Ntats since Ntgts is a single coset in [1 2]. This implies Nt,tat3 = 
Ntst4 = Ntats € [12] so all 8 elements in the same orbit as 3 are sent back to [1 2] thus 
completing the double coset enumeration of PSL3(4) : 2 over Mio and producing this 
Cayley diagram: 


Figure 4.1: Cayley Diagram PSLI3(4) : 2 over Myo 
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4.3. Manual Double Coset Enumeration of PGL2(11) over 
D2 


The following finite presentation was original discovered on the progenitor 
Q*l2 (2? x 3) :* 22. Later it was discovered that N had changed from (2? x 3) :* 2? to 
the subgroup Dj2. This finite presentation is the result of using the changing N method 
and factoring 3°PGL2(11) by C3 presented in Chapter 2. The resulting double coset 
enumeration that will be conducted is PGL2(11) over Diz. Before we begin we will 
construct a table that lists the relation and all the conjugations of (1), (13), and (19) 
used in the following lemmas. We will also denote R(t,s) for right multiplication 


(where ts are any t’s), L(ts) for left multiplication, and abbreviate conj. for 


conjugation. 
Table 4.1: Relations for PGL2(11) over Dig 

(1) tatot; =e (13) yt t3tit3t, = e (19) Zt3t4at3titatetotet, = e 
(2) tetst3 — (14) ytgtyt3tyt3 =€ (20) zltgtotgtitotstatsty =e 
(3) totyta =e (15) ytotstotste =e (21) Zt tet tatetatstats =e 
(4) tst3te = e€ (16) ytstetstets =e (22) zl tstatstotatetitete =e 
(5) tgtets =e (17) ytatgtatets =e (23) zl tstatstotatetytete =e 
(6) tet3ts = e€ (18) ytetatetate =e (24) zl tgtotstatstatsty =e 
(7) tyt4tg =e (25)z~ltstatstitetitete =e 
(8) tatyto =e (26) ztotgtatetitetits =e 
(9) t3t5te = © 
(10) tot4ty =e 
(11) tstgt3 = e 
(12) tytot4 =e 

Given IRGC SG N=< (1,2)(3,5), (1,3)(2, 5)(4,6), 


(1, 4, 2)(3, 6,5) >.We verify the #DoubleCosets(G, sub < Glx,y,z >, sub < Glz,y,z > 


a IG] _ PGL2(11) _ 1,320 
) = 15 using Magma and note it Spe aD 


sider our first double coset NeN = {Ne"|n € N} which we will denote [x]. Since N is 


= 110 single cosets. We con- 


transitive on {1,2,3,4,5,6} we have the single orbit {1,2,3,4,5,6}. We choose a represen- 
tative from this orbit (t,) which carries us to the double coset Nt; N = {Nt?|n € N} 
denoted [1]. From here, we consider the coset stabilizer N“ which is equal to the 


point stabilizer N'. N! =< e,(2,4)(5,6) >, to determine the number of single cosets 
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we know |N| > | < Id(G), (2,4)(5,6) > | > 2. Therefore, the number of single cosets 
in NiN = WL = ¥ = 6. The orbits on {1,2,3,4,5,6} are {1},{3},{2, 4}, and {5,6}. 


We extract a representative from each orbit and determine to which double coset they 


belong. 


The possible new double cosets we will consider are Nt,t1, Ntit3, Ntite, and 


Ntits. We know t? = {e} so Ntyty € [x]. 


Lemma 4.1. tit2 € [1] 


Proof. Given: tytgt, = e by relation (12) 


tytot4 =e tytg =t4 € [1] R(t4) 


Since we right multiplied my t4 that is indicated by R(t4) to the right of our 
work. Considering Nt tg defined as Ntit3N = {N(tit3)"|n € N} We look to the coset 
stabilizer N@), We have N13) =< e, (2,4)(5,6) > which gives us the inequality: 


(13) 


Computing N in N we obtain, 


In| 
> |.N+3| 


> | < Id(G), (2,4)(5,6) >| > 2 


IN| _ 12 
[NGS] ~~ 2 


sider the orbits on {1,2,3,4,5,6} which are {1}, {3}, {2,4}, and {5,6}. As before we 


This implies the number of singles cosets in Ntjt3N = = 6. We now con- 


choose a representative from each orbit and produce the list of possible new double 


cosets Ntit3t1, Ntit3t3, Ntit3te, and Ntytsts. 
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The result is obvious that Nt,t3t3N = Nt,N € [1]. The relation yt tgtit3t; = e 
produces Nytit3tiN = Ntit3N € [13]. 
Lemma 4.2. t,t3t5 € [15] 


Proof. Given: t4tgt; = e by relation (1) 


e=tytot, => t = tate R(t1) 
titgts = tatotsts R(ts3ts) 
= (t4te)(tgts) = tite relations : (1), (9) 
=> tt3ts = tite € [15] equality 


Ntyt3t2 will be determined to be a new double coset but we will investigate this further 


later. We now investigate the double coset Ntyt5. 


We begin with Nt,ts by determining the number of single cosets as follows: 


we) 
> |.N1| 
2'|<1a(G) > |ed 
The total number of single cosets is Noy = 2 = 12. The orbits on {1,2,3,4,5,6} are 
{1},{2},{3},{4},{5},{6} so we will investigate the possible new double cosets Ntit5t1, 
Ntyt5tg, Ntitst3, Ntitst4, Ntyts5ts, and Nt tstg. Clearly, Ntytsts € [1]. The new double 


cosets we will investigate later are Nt,t5t,, Ntitste, and Ntytsta. 


Lemma 4.3. t)t5t3 € [13] 
Proof. Given: tytgts = titg by Lemma(4.2) 


fe 4(24(6.6) ee 46241066) 


tyt5 = tyt3te => titst3 = t1t3t6t3 
= tt3(tet3) = titsts 


=> tyt5t3 = tytl3t5 = tite € [15] 


Lemma 4.4. t,t5tg € [13] 


Proof. Given: t4tgt; = e by relation (1). 


e=tatoty => 1 = tate 
=> tyt5te = tatotyte 
= (tata) (tste) = tits 


=> tytste = tits € [13] 


We now consider the double coset Ntjts3to. 


con]. 
R(t3) 
relation : (6) 


equality 


relations : (1), (11) 
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When we calculate the point 


stabilizer we notice there is no element that stabilizes 1, 2 and 3. Even though the 


N18? =< e > Magma indicates to us that any permutation that fixes 1 and 3, and 


contains (2,4) belongs in the coset stabilizing group. We will now show [132] = [134] 
which will put (2,4)(5,6) in the coset stabilizing group. 
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Lemma 4.5. /132/] = [184] 


Proof. Given: yt)t3tit3t; = e by relation (13) 


ytytgtyt3t; =e = > ytlit3t, = tits R(tits) 
ylitgtita = tyt3ta R(ta) 
ytits (tits) = titste relation : (7) 


=> ylytgto = tyt3t4 


So we calculate the number of single cosets as follows: 


|v (132)| 
= Lee 


> |< Id(G), (2, 4)(5,6) >| > 2 


Implying, rican = 2 = 6 and the orbits on {1,2,3,4,5,6} are {1},{3}, {2,4}, {5, 6}. 
Our possible new double cosets are Nt t3tat,, Ntitstot3, Ntitgtate, and Ntyts3tets. As 
before Nt tgtgt2 € [13] taking {2,4} with it. Nt,tgtat3 and Nt,t3tats turn out to be 
new double cosets and we prove Ntjtstet, € [132]. 


Lemma 4.6. t)t3tot; © [132] 
Proof. Given yt) t3t2 = tit3t4 (Lemma 4.5) 


Note : tyt3(t4) = titgtety relation : (3) 


=> tytgteti = tit3t4 = ytitste € [132] 


We continue to the double coset Ntytst. 
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The number of single cosets for Nt,t5t; are determined to be: 


INOS) | 
= |Nt}| 
= |e 1dG). | 1 
That is, wean = ? = 12 single cosets. The orbits on {1,2,3,4,5,6} are {1}, {2}, {3}, 
{4}, {5}, and {6}. Taking a representative from each orbit we determine which are new 


and which are sent to existing double cosets. Ntitstit; € [15] while Ntitstits, Ntitstits, 


and Nt,tst,te all turn out to be new double cosets. 
Lemma 4.7. t)t5tito © [154] 


Proof. Fact: tytstyte = tytstyte 


tytstytg = ty ts (tite) = tytsta € [154] relation : (12) 


Lemma 4.8. t)t5t1t4 © [152] 


Proof. Fact: tytstytq = tytstita 


tyt5tyt4 = tits (tits) = tyt5te € [152] relation : (7) 


We will now investigate Nt) tst2. Once again, the point stabilizer N°? =< e >, 


but we will show [152] = [625] which will increase the coset stabilizer. 


Lemma 4.9. [152] = [625] 


Proof. Given: ytatstgtst2 = e relation: (15) 


Ytotstotste =e => ylats = totste 
taytats = tatotstox 
Note : (tay)tats = ytetets 


Note: (tate)t5te = tyt5te 


x = > yletets = tyt5le 


74 


R(tatst2) 
L(t) 


relation : (1) 


substitution 


Since, [152] = [625] any permutation sending 1 to 6, 5 to 2, and 2 to 5 belongs in the 


coset stabilizer N52). We calculate the number of single cosets as follows: 


| 52) 


= (vt?) 


>| < Id(G), (1, 6)(2, 5)(3, 4) > | > 2 


This implies there exist a total of iver = 


12 
2 


= 6 single cosets. The orbits on 


{1,2,3,4,5,6} are {1, 6}, {2, 5}, and {3, 4}. Taking a representative from each of the 
orbits we have Ntytstet, Ntitstete, and Ntytstat,. As before, Ntytstat, € [15]. 


Lemma 4.10. tyts5tot, © [154] 


Proof. Fact: tytstot = tytstoty 


tyt5tet, = tits (tet1) = tyt5ta € [154] 


relation : (3) 
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Lemma 4.11. ftytstot, € [151] 


Proof. Fact: tytstot, = tytstata 


tytstetg = ty ts (tots) = tyts5t, € [151] relation : (10) 


We will now continue on with the double coset Ntytsta. 


Investigating N54) we discover the following: 


JN (154) | 
> N14 


>|<Id(@)>|>1 


The number of single cosets in [1 5 4] = rica = 2 = 12. The orbits on {1,2,3,4,5,6} 


are {1}, {2}, {3}, {4}, {5}, and {6}. Our possible new double cosets are Ntytstaty, 
Ntytstato, Ntytstat3, Ntytstata, Ntytstats, and Ntyt5tate. Ntyts5tat4 € [15] while the 


only new double coset turns out to be Ntytst4ts. 


Lemma 4.12. tyt5t4t; € [152] 


Proof. Fact: tytstaty = tytstaty 


tyt5tat, = tyts (tats) = tyt5te € [152] relation : (8) 


Lemma 4.13. tyt5t4to € [151] 


Proof. Fact: tytstate — tytstate 


tyts5tate = tits (tate) = tyt5t1 relation : (1) 


Lemma 4.14. tytst4ts © [1516] 
Proof. Given: z~tgtat3ttotstatst, = e by relation (20) 
ol igtotstitotetatety =e => ot Eatotat ts = tytstat5x 


2 ltgtets (tite) = 2 ltgtetatax 


tyt5tats = zltgtotsta € [1516]. 


Lemma 4.15. tytst4tg © [1325] 


Proof. Fact: titstatg = tyitstate 


R(titstats) 


relation : (12) 


tyt5tat6 = tits (tate) = tits (ytatets) relation : (17) 


= (tit5y)tatets = ytgtotatets 
= yt3(tota)tets = ytstitets 


=> tyts5tate = yt3titeta € [1325] 


We investigate the new double coset Ntyt3tats. 


(10) 


equality 


by : x 
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This next double coset turns out to have equal names. We determine that 


[1323] = [1343] as we recall: 


Lemma 4.16. [1323] = [1343] 


Proof. Given: ytit3t2 = tit3t4 (Lemma 4.6) 


ytyt3tg = tyt3t4 => ytitstets = tyt3tat3 


R(ts) 


We calculate the number of single cosets as: 
|. (1823) | 
= | < Id(G), (2, 4)(5,6) > | 2 2 


The number of single cosets in [1 3 2 3] a 12 
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= irae = 2 —6. The orbits on {1,2,3,4,5,6} 


are {1}, {3}, {2, 4}, {5, 6}. Ntitgtetgt; turns out to be our final new double coset as 
we will prove later. Nt t3tat3t3 € [132] as usual. We discover Ntyt3tat3t2 € [1323] as 


indicated by the following: 
Lemma 4.17. tytgtotste € [1323] 


Proof. Given: Z2t3tat3ti tatetotety =e by (19) 


ztatatg(tita)tetatet: =e —> ztgtatgtotgtotgti =e 
—  2tgtytst. — titetate 
=> (toztstatato = totitetate) = * 
Note : (tgz)tgtatg3tg = ztytstatgto 
= > 2(tits3t4)tgto = zytitgtotste 
Note : (tot )tgtots = tatetate 
x = zytytz3tot3to = tatetate 
=> zytytstotate = tatgtate € [1323] 


=> ylstetste = z _tytatetote € [1323] 


relation : (7) 
R(titetate) 
L(t2) 


Lemma(4.6) 
relation : (3) 
Recall 
substitution 


L(z*y) 
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Lemma 4.18. tytgtotstg © [1325] 


Proof. Given: ytit3t2 = tit3t4 Lemma(4.6) 


ytitato = titst, => (ytitstotsts = titstatsts) = x R(t3t¢) 
Note : tit3ta(t3te) = titstats relation : (5) 
= (titsta)ts = ytitstets Lemma(4.6) 
x = ytitgtotgts = ytitgtets € [1325] Substitution 


We look into the coset stabilizer N25) and come to the following conclusion: 


|. 1825) | 
>|<Id(G)>|>1 
We calculate the single cosets in [1 3 2 5] as Fcc = 2 = 12 single cosets. The orbits 


on {1,2,3,4,5,6} are {1}, {2}, {3}, {4}, {5}, and {6}. We know Ntjtstotsts € [132]. We 


will prove where each of the remaining possible new double cosets are sent. 
Lemma 4.19. tit3tatsti € [1516] 


Proof. Given: ztgt4t3t2 = tytgtete Lemma 4.17 (line 2) 


(ztgtatgto)” — (ty tgtote)” => (ztytetits = tgtatsts) =x con]. 
Note: t3(t4)ts5ta = t3tilotst4 relation : (12) 
= t3ty (tats )ta = t3ty (ytotste)ta relation : (15) 


= (t3t1y)totsteta = ytitgtetsty 
x => ylyiztetst, = ztytetits Substitution 


=> tytstotst, = yztytetits € [1516] 


Lemma 4.20. tytgtotste € [154] 

Proof. Fact: tytgtotste = tyt3totste 
tytgtatste = tyt3(totste) = tits(ytats) relation : (15) 
= (titsy)tets = ytstitets 


— yts(tit2)ts _ ytstats relation : (12) 


=> tylztotste = yt3tats € [154] equality 


Lemma 4.21. tytgtotsts € [1325] 


Proof. Given: yt)t3t2 = tit3t4 (Lemma 4.6) 


ytytgto = tytst, => tytste = ytitsts L(y) 
==> tylstotsts = ytitsta(tsts) R(tsts) 
= ytytgta(t5t3) = ytitstate relation : (4) 
=> tytstotstz = ytitstatg € [1325] equality 


Preliminary work for Lemma 4.22: 


The following relations will be used to prove Lemma 4.22 we will call the result a: 


Proof. Given : tetats = ytitst2 result from Lemma(4.9) 


(tgtots)\ OVE) = ytytst %C9 — tgtots = ytatste conj. 
t3tatst4 = ytatstot, R(ta) 
= ytats (tots) = ytatsty relation : (10) 


=> (t3tatsta = ytatsty) =a equality 
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Notes about the proof of Lemma 4.22: We will obtain zytgtgtits; on the right 


side and then show the left side simplifies to tyt3tatst4 only using relation substitution 


that will not effect the right hand side. 
Lemma 4.22. tit3tatsts € [1543] 


Proof. Given: z~!tstatstatatgtitgt2 = e by relation (23) 


2 ltetatstotatetiteto =e => z ltstatstot, = totetite 

z lttatstota = toteti (te) = totetitsts 

2 ltetatstots = totgtytstz => z ltstatstotats = totetits 

z lt5(ta)tstotats = totetits —> 2 ltstytotstetats = totetits 

zltst(totste)tatz = totgtits —> 2 M5t(ytets)tatz = totetits 

zl (tsty)totstatz = totgtits —> z lytotgtotstats = totetyts 
=> totgtotstatz = yztotetits« 

Note : to(tgtgtsta)tz = to(ytatst)t3 

= (toy)tatstits = ytstatstit3 

= ytstats (tits) = ytstats(ytitstr) 

= (ytstatsy)titgt: = totetotytsty 

= totgtats(t3)(t1) = tetetotitetsteta 

= totgtatitg(t5tz)ta = totetatite(ytstots ta 

= (totgtztitey)tstetsta = ytstatststatstotsta 

= ytsta(t5t3)ta(ts )tatsta = ytsta(te)ta(tets)totsta 

= yts(tatetate )igtotsta = yts(yta)tgtotsta 

= (ytsy)tatgtotst4 = totatgtotsta 

= (tot4)tgtotsta = tytgtetst, 

x = totgtotstats = zytotetits 


= tyt3totsta = tot3tot5tat3 = zytotetyts E [1543] 


R(tatetite) 
blation a, 
R(ts) 
elation (12) 
) 


relation : (15 


R(yz) 


relation : a 
relation : (13) 


relations : (2), (10) 


relation : (15) 


relations : (4), (6) 
relation : (18) 


relation : (10) 
Recall 


equality 
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Lemma 4.23. tytgtotstg € [1323] 


Proof. Fact: tytgtotste = ty t3totste 


tyl3totste = ty t3to(tste) = tyt3tot3 € [1323] relation : (11) 


With the double coset [1325] fully investigated we move on to the double coset 
[1513]. We determine there is an equal name for [1513]. 


Preliminary work for Lemma 4.24: 


Proof. Given: tgtats = ytitst2 by Lemma(4.9) 


(tetgts) 9) 2,6)(4,5) => (ytytste) 192645) = (tateta => ytstate) =Q1 con). 


Proof. Given: ztgt4t3t2 = tytgtets by Lemma(4.17) line 2 


(2tgtatzta)COCIGD = (tytgtote)\ MVCIGY > (tytgtats = ztetitsti) = Bi con). 


Lemma 4.24. [1513] = [3431] 


Proof. Given: Zt3tat3to = ti tetate by Lemma(4.17) line 2 


Note : ztgtat3(ta) = ztg3tatgtit, 
=> ztstat3tits = titetate 
=> (ztgtatgty = titetotets) = x 
Note : tytg(totets) = tit¢(ytstate) 
= (ty tgy)t3tate = ytgtatgtate 
= ytstatsta(te) = ytstatztatsts 
= yt3(tatgtats)tz = yt3(ztetitsts )ts 
= y(t3z)tetitstits = y2tetetitstits 
= y2z(tete)titstits = yztitstits 
=> tytgtotets = yztitstits 
x = ztgtgtgt, = titetoteta = y2titstits 


==> ylstatgti = tyt5tit3 


relation(7) 
substitution 
R(ta) 


preliminaries : a1 


relation : (4) 


preliminaries : 31 


om =e 
equality 
substitution 


L(z~*y) 


This implies our coset stabilizer N“5!8) proceeds as follows 


tates) | 


>| < Id(G), (1,3)(2,6)(4,5) >| > 2 
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This implies our orbits on {1,2,3,4,5,6} are {1, 3}, {2, 6}, and {4, 5}. The double coset 


Ntyt5tytgt3 € [151] ' 


Lemma 4.25. tyts5tit3to € [1515] 


Proof. Given: tyt5tit3 = yt3tatzt, result from Lemma(4.24) 


Note : tyt5t1(t3) = titstitste relation : (11) 
tytstyt3 = tyt5titste = ytstats3ty substitution 
tytstitste = ytgtatgt, —> (titstits = ytgtatgtite) = x R(te) 
Note : y(tgtatgt,)ts = y(z ‘titgtoteta)te relation : (19) 
= yz ty tete(tetate) = yz tty tete(yteta) relation : (18) 


= (yz 'titgtoy)tets = 2‘ t3tatstota 


= z ltgta(tste)ta = z ltgtatgta relation : (11) 
= zg ltgtats(ta) = z ltgtatgtyte relation : (12) 
= 2} (tgtgtgt, )to = zl yt tstytgte Line(2) 
— > ytgtatgtits = 2 ytitstitste equality 
* = tytstits = ytstatgtite = zl yt tstitgte substitution 
=> tytstytste = yztitstyts € [1515] L(yz) 


Preliminary work for Lemma 4.26 


Proof. Given: z~t3tet3tatstatst; = e relation (24) we declare the result a2 


z ltgtotatatstatsty =e => z ltgtetata = tytstats = ag R(titstats) 


Lemma 4.26. tyts5tit3t4 € [1516] 


Proof. Given: tyt5tyt3tg = yztytstits result from Lemma 4.25 


Note : tytstytgte = tytstitstaty relation : (1) 
=> tytstytstat, = yztytstits substitution 
=> tytstitgta = yztitstitstix R(t1) 

Note : yz(titstits)t1 = yz(ytstatgtite)tr Lemma(4.24) Line(3) 
= ztgtqt3(ty)te(t1) = ztgtatgtetatetate relations : (10), (1) 
= ztgtytgte(tatgts)to = ztgtatgte(ytate)te relation : (17) 


= 2(tgtatstoy)tatete = zyt tet t5tatete 


zytitetitsta(te)te = zytytetitstatstg3te relation : (4) 


zyt te (titstats )tgte = zytite(zltgtotgta)tgte preliminary me) 


= zy(titez)tgtetgtatgte = ytotgtgtotstatste 


= y(to(tsts)te)tstatste = ytstatsto i 
= yettstitst, = ytgtatgte equality 
x = > ttstit3t, = y2tytstitsti = yt3tat3te € [1516] substitution 


Moving on to the next double coset, we discover [1515] has an equal name. 


Lemma 4.27. [1515] = [3434] 


Proof. Given: yztitstits = titstit3t2 by Lemma(4.25) 


y2tytstits = tyts(titgte) = tits(ytitsts) Lemma(4.5) 
= (titsy)titsta = ytstetitsta 

= yts(toti ists = ytstatsta relation : (3) 
==> yrttstits = ytstatzta equality 


=> tyt5tits = 2 ltstatata => [1515] = [3434] L(z~ty) 
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This implies our coset stabilizer N“5!8) proceeds as follows 


| 515)| 
2 | < Id(G), (1, 3)(2,6)(4,5) > | 2 2 
resulting in a total number of Teal = 2 = 6 single cosets. Once again, the orbits on 


{1,2,3,4,5,6} are {1, 3}, {2, 6}, and {4, 5} as we begin investigating our possible new 
double cosets. Ntits5titsts € [151] so this takes the symmetric generators {4} and {5}. 


We now show the following relations: 


Lemma 4.28. t,t5tt5t1 © [1516] 


Proof. yztitstitst, = yt3tatzt2 Lemma(4.26) result final line. 


yztytstitst, = yt3tat3tg — > tytstitst, = 2 ltgtatste € [1516] R(yz7+) 


Lemma 4.29. tyts5tit5tg € [1513] 


Proof. Fact: tyt5tytste = tyt5tyts5t¢ 


tyt5t t5te = tyt5t (t5te) = tyt5t1t3 € [1513] relation : (11) 


With this double coset completely investigated we move on to the double coset 


Ntytstite. 
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We determine the coset stabilizer 


ltt) 
oe |< TG). S|, Sab: 
This indicates there are arash = B = 12 single cosets. The orbits on 


{1,2,3,4,5,6} are {1}, {2}, {3}, {4}, {5}, and {6}. There are no new double cosets 
left so we determine where each coset belongs. As before Nttstitgte € [151] and we 


prove the remaining relations. 


Preliminary work for Lemma 4.30 


Proof. Given: ztot3tatgtitetits = e by (26) we declare the result az. 


Ztotstotetitetits =e => (ztotgtote = tstytet1) =a R(ts5titet1) 


Lemma 4.30. tyts5titgti € [1325] 


Proof. Fact: tytstytety = tytstytety 


tytstytety = ty (t5ti tts) = t1 (ztatgtote) preliminary 2 3 
= 2(t4ta)tgtote = Zt t3tote relation : (1) 
= 2(tit3te)te = z(ytitsta)te Lemma(4.5) 


=> tyts5titet, = zytits3tate € [1325] equality 


Lemma 4.31. tyts5titgte € [154] 


Proof. Given: tyt5titgt, = zytit3tatg Lemma(4.30) result 


titstitet, = zytitstats —> titstits = zytitstatety 
=> tits5titete = zytitstatetite 

zytytgtate(tit2) = zytitstateta 

= zytits3(tateta) = zytitgytate 

= z(ytitsy)tate = zt3ti tate 

= zt3(tit4)tg = ztgtote 

=> zytit3tatetite = ztz3tote 


= > tt5tytete = ztgtote € [154] 


Lemma 4.32. tytstitgt3 € [1515] 


Proof. Fact: tytstitgt3 = tytstitets 


titstitets = titsti(tet3) = titstits € [1515] 


Lemma 4.33. tytstitgta € [1543] 


Proof. Given: tyt5titgt2 = zt3tetg result from Lemma(4.31) 


tyt5t tete = Zt3tote => tytstitetotet,s = Ztgtoteteta 
=> tt5titeta = zt3totetota 
Note: ztgtate (tots) = Zt3totety 


=> tts5titets = ztgtotety € [1543] 


relation : 


relation : 


relation(7) 


equality 


substitution 


relation : (6) 


relation : (10) 


substitution 
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Lemma 4.34. tyts5titgts © [1513] 


Proof. Fact: tyt5tytets = tyt5tytets 


tytstytets = tytsty (tots) = tytst1t3 € [1513] relation : (2) 


From here we will investigate the double coset N¢t,t5t4t3 and prove its relations. 


We discover that [1543] = [6234]. We prove this as follows: 
Lemma 4.35. [1543] = [6234] 


Proof. Given: tyt5titgt2 = zt3tetg result from Lemma(4.31) 


tytstrtet PO = (2tgtate) OE) 


— > tytstatgto = 2 ltetots conj 
— > z ligtot3ta = tatstatgtota R(ta) 
Note : tatstat3 (tots) = tatstatsty relation : (10) 
= tats(ta)t3ti = tatstotitsty relation : (3) 
= tatsto(tit3t,) = tatstoytits relation : (13) 


= (tatstoy)tits = ytetotstits 


= (ytgtats )tits = tyt5totit3 Lemma(4.9) 
= ty ts (tat, )ts = tyt5tat3 relation (3) 
=> tytstatgteta = trts5tat3 equality 


— > z letotst, = tytstatz —> [1543] — [6234] substitution 
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This increases our coset stabilizer accordingly: 


|. (1543) | 


>| < Id(G), (1, 6)(2, 5)(3,4) >| > 2 


The orbits on {1,2,3,4,5,6} are {1,6},{2,5}, and {3,4}. Ntitstatgt3 € [154] as 


many times in the past. We investigate the other two relations we must show. 


Lemma 4.36. tyts5t4t3t1 © [1516] 


Proof. Given ztgt4t3t = tytgtote from Lemma(4.17) line 2 


(tgtatgto) 252345) = (zl tgtotg) 52345) = tatstat3 = 2° tetotsts con]. 


Note: z ltetets(te) = 2 lt6totstaty relation : (8) 


= (z~ltetatsta)ty = tyt5tat3ty 


Lemma(4.35) 
=> 2 Uetotgte = titstatsty equality 
=> a etstats = tytstat3ty = tatstat3 € [1516] substitution 

Lemma 4.37. tytstatgte € [1325] 

Proof. Given tytstat3 = z~‘tgtatgta result from Lemma(4.24) 
tytstat3 = 2 ltigtotsts = tytstatg3te = ae Stetotatite R(t2) 
Note: z ltetat3(tate) = zl tetotsty relation : (1) 
= zMete(tgt1) = zl tete(ytstits) relation : (14) 
= z7|(tetey)tstits = 2 ytatstgtits 
= z-lyta(tst3)tit3 = zl ytatetyt3 relation : (4) 
— > 2 lt6totgtate = zl ytatgtits equality 
— > z ltetet3tate = tytstatgt2 = z~lytatetits € [1325] substitution 
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We move on to our final double coset Ntt3tgt3t; and show that this is the 


point where the group terminates. 


This double coset has 12 equal names. This means that the coset stabilizing 
group is N itself. If we can put the elements < 2,y,z > € N33) then we will have 
effectively proved that that the coset stabilizing group is all of N which will give us one 
single coset. We will first prove a relation that will help us show what elements belong 


in the coset stabilizing group. We will start by proving [13231] = [25152]. 


Preliminary work for Lemma 4.38 
Proof. Given: tit5titetg = ztgt2t¢ Lemma(4.31) we declare this result a4. 
ty tst tg (te) = Zt3tote => tytstitetaty = Zt3tote relation : (8) 


= > tt5titeta = zt3totety R(t1) 


=> (z7lttstitets = tztoteti) = a4 RG) 
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Lemma 4.38. [13231] = [25152] 


Proof. Given: tytgtotst, = yztetetits Lemma(4.38) result 


tytg3totst, = yztotgtits => tytste(tste)tr = yztotetitstateti R(tatets) 
=> tytstotst) = yztotetitstatety relation : (11) 
Note : yztotetitsta(te)(t1) = yztetetitstatgtstot, relations : (9), (10) 
= yztatetitstat3(t5te)ta = yztatetitstats(ytstats )ta relation : (16) 


= (yztotetitstatzy)tstotsts = zt5tatgtotetitstotsta 


zt5ta(tgtotets )tstetsta = wtetye ty tetitetstotsta preliminaries > 4 


— 2(tstaz +)tytstitetstatsta = tetititstitetatstotst, 


_ te (tit )tstitetatstetsta = tetstitetatstotsty i =e 


= (tets)titetatstatsta = tatytetatstotsta relation : (2) 


= (tgtiteta)tstotsta = (ytitstatets )totsta 
= ytitsta(te)tstotsts = ytitstatgtststotst, 
= ytitstats (tts )tatsta = ytitstatstotsta 

= y(titstatgte)tsta = y(yz ‘tatetits)tateta 
= yy « ztatgtytststeta = 2 ltatetiteta 

= z1(tgtg)titeta = z 1 (ytateta)titeta 

= z~|ytate(tats)teta = 2 ytatetoteta 

— > tyt3tot3t, = zl ytatetoteta € [25152] 


Lemma(4.15) 


relation : (9) 


i =e 
Lemma(4.37) 
ie =e 


relation : (17) 


relation : (8) 


Now that we have the relation t,t3tot3t; = yz~!tatgtotgta we can use this to 
see N is contained in the coset stabilizing group. We intend to obtain an elements of the 
same length and order of x,y, and z in the coset stabilizing group as this will generate 


the entire group N in the coset stabilizer. 
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Given: x representative: 2z~! = (1, 4)(3,6) 


(tytgtotgt;) EVE) — (y2ltgtetatets) OO) 
=> tytgtatets = yztitztotsty 


—> (1,4)(3,6) € N93) 


Note: Nt, t3tet3t, = Ntatetitatg from the proof of [13231] = [25152]. 


Conjugating yz~!tatgtotgta = tit3tetst, by z = (1,4, 2)(3,6,5) gives: 


(yz tatgtotgta) 2) 3-68) = (tyt3totgty) 042265) 
= yz totstgtste = tatgtiteta € [13231] 


—> (1,4, 2)(3,6,5) € N(1323)) 


Last we prove [13231] = [31513] as this will allow us to put y in the stabilizer. 


Lemma 4.39. /13231] = [31513] 


Proof. Fact: tyt3tot3ty = tyt3tot3ty 


tytgtatsty = (titgta)t3ty = ytitstatsty Lemma(4.5) 
= yt tg3t4(tgt1) = ytitsta(ytstits) relation : (14) 
= y(tytgtay)tgtitz = tgtitgtgtits 

= tg3t1(tet3)tits = tgtitstits relation : (6) 


=> tylstotgt, = t3tit5tit3 —> [13231] = [31513] equality 


93 
Conjugating the relation tytgtat3t, = t3titstitz by y = (1,3)(2,5)(4,6) gives: 


(tytgtotsti )\PIEI46 = (tty tstyt3) 92946) 
=> t3tit5tyt3 = tyt3tet3t1 € [13231] 


= y = (1,3)(2,5)(4,6) € WO) 
Finally with < xz7!,y,z > € N83) we have N € N(!823) which implies 


[see 
> [vies] 


>| < Id(G@),227",y,2 >| > 12 


This implies all of distinct double cosets [13231] = [25152] = [31513] = [46164] = [52325] 
= [13431] = [64346] = [46264] = [25452] = [31613] = [64546] = [52625] are equal. Which 
shows NORE = 12 1. With the orbits on {1,2,3,4,5,6} being {1,2,3,4,5,6}. Allowing 
Ntytgtatgtity € Nt t3tat3 and all t’s are carried back, thus completing the double coset 
enumeration of PGL2(11) over Diz. Which gives us the following Cayley Diagram. 


Figure 4.2: Cayley Diagram PG L2(11) over Dj. 
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4.4 Double Coset Enumeration over a 


Maximal Subgroup 


Double coset enumeration is typically performed over the control group N. At 
times the process becomes cumbersome when the number of double cosets is a consid- 
erably large number. For example, when calculating the double coset enumeration of 
Mi : 2 over 2? : (2? x 3), there are a total of 98 double cosets which we check using 
Magma. In this case, we will be required to determine how the 12 t’s interact amongst 
the 98 double cosets. This could result in determining where 1,176 cosets are sent which 


while possible, is a very challenging task. 


4.4.1 Is Maximal Double Coset Enumeration Applicable? 


Double coset enumeration over a maximal subgroup may not always be pos- 


: : 2*°:5:4 ~ 
sible. For example, consider Gaaaympipigishis {1342 e)ubbbhhis = Sz(8) x 2 We can 


factor out the 2 from our Sz(8) x 2 leaving only the Sz(8) of order 29,120. If we conduct 
our checks as we did in section 4.2 we have ny = ayn = 1456 single cosets and a total 
of 79 double cosets. While definitely possible to complete by hand it is unnecessary if 
we can find a suitable maximal subgroup of Sz(8). Inputting the following code: 
G<x,y,zZ,t>:=Group<x,y,z,t|x°4,y°2,2°5,t°2,x°-2xy, (y*z°-1)°2, 
K*Z7-1L*X7-1*Z2°-2, (yxt*Z°-1) 72,27 -Letezexetxx?-1, (t*x*-1) 77, 


(C*Z°-1) 77, KUHL at Z ete HL at eX et eZ et Kyat eyat xxet xz -Letxyxt>; 


[1] Order 14 Length 2080 
Permutation group acting on a set of cardinality 29120 

Order = 14 =2 x 7 

[2] Order 20 Length 1456 

Permutation group acting on a set of cardinality 29120 

Order = 20 = 2°2 x 5 

[3] Order 52 Length 560 

Permutation group acting on a set of cardinality 29120 

Order = 52 = 2°2 x 13 

[4 Order 448 Length 65 
Permutation group acting on a set of cardinality 29120 
Order = 448 = 2°6 « 7 
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and using the knowledge that the order of a subgroup must divide the order of the group 
it is contained in we see that only M[2]‘subgroup is suitable to contain an N of order 20. 
This of course doesn’t help us any as our original N is of order 20, so unless we decide 
to perform the double coset enumeration over N, we can save this discovery for later. 


While this example did not produce a suitable M, we will. now investigate an example 
which will. 


4.4.2 Double Coset Enumeration of Mj, : 2 over 


Maximal Subgroup 2! :* S, 


We consider Mj) : 2 over 2? : (2? x 3) again as mentioned previously. As 
before if we attempt the double coset enumeration over N, we will have roughly 1,200 
calculations and 98 double cosets. Fortunately, this case does have a suitable maximal 
subgroup that allows us to perform double coset enumeration over M. To begin, we 


repeat the process of asking Magma for Maximal subgroups of M as follows: 


> M:=MaximalSubgroups (G1); 
> M; 
Conjugacy classes of subgroups 


ee Order 120 Length 1584 
Permutation group acting on a set of cardinality 3960 
Order = 120 = 2°3 *« 3 * 5 

[ 2] Order 144 Length 1320 
Permutation group acting on a set of cardinality 3960 
Order = 144 = 2°4 * 372 

[ 3] Order 216 Length 880 
Permutation group acting on a set of cardinality 3960 
Order = 216 = 2°3 * 373 

[ 4] Order 1320 Length 144 
Permutation group acting on a set of cardinality 3960 
Order = 1320 = 273 *« 3 * 5 * 11 

[ 5] Order 1320 Length 144 
Permutation group acting on a set of cardinality 3960 
Order = 1320 = 2°73 *« 3 * 5 * 11 

[ 6] Order 480 Length 396 
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Permutation group acting on a set of cardinality 3960 
Order = 480 = 2°5 *« 3 * 5 
[ 7] Order 384 Length 495 
Permutation group acting on a set of cardinality 3960 
Order = 384 = 2°7 x* 3 
[ 8] Order 384 Length 495 
Permutation group acting on a set of cardinality 3960 
Order = 384 = 2°7 x* 3 
[ 9] Order 95040 Length 1 
Permutation group acting on a set of cardinality 3960 
Order = 95040 = 2°6 *« 3°3 * 5 * 11 


In this case, we have 4 suitable candidates which are all divisible by N 2? : 
(2? x 3). We then ask Magma to compute conjugates and determine that M[7]‘subgroup 
of order 384 is the only maximal subgroup containing N. Now we proceed with our 
G = sees and M = < f(x), fly), F@), fw), fo), festa vate zeus 


xtiotiiti2,z°tsti2totsti2 


te z-let«z«*t«*2~1x%t) > where M & (24) :° Sq. 


Consider the first double coset of our Cayley diagram. Since we are performing 
double coset enumeration over M our definition becomes MwN = {Mw"|n € N}. 
That is, MeN = {Me"|n € N} = {Mele € N} = {M}.We denote this first double coset 
as [x] containing just one single coset. Our N is transitive on {1, 2,3, 4,5, 6, 7,8, 9, 10, 
11,12} so it has a single orbit {1, 2,3, 4,5, 6, 7,8, 9, 10, 11,12}. Now taking a representa- 
tive from this orbit, 12 in this case, and right multiplying to the double coset Me we 
obtain the new double coset Mtj2N = {Mti,|n € N} = {Mti, Mto, Mt3, Mta, Mts, 
Mtoe, Mt7, Mtg, Mto, Mtio, Mti1, Mti2}. Now, considering the coset stabilizer M2), 
which is equal to the point stabilizer M!?. M =< (1,5)(2,3)(4, 7) (6,9), 
(1, 2)(3, 5)(4, 9)(6, 7) > = fe, (1, 5)(2, 3)(4, 7) (6,9), (1, 2)(3, 5)(4, 9) (6, 7), (1, 3)(2, 5) 
(4, 6)(7,9)} so the number of double cosets in Mt ;2N denoted [12] is at most rie = 
i = 12. Now, considering the generators of M2) we determine the orbits 
on {1,2,3,4,5,6,7,8, 9,10, 11,12} are {8}, {10}, {11}, {12}, {1,5, 2, 3}, {4, 7,9,6}. We 
proceed by taking a representative from each orbit, in this case, {1}, {4}, {8}, {10}, 
{11}, {12}, and determine which double coset they belong to. Since our t’s are order 2 
we know, Mtjati2 € M € [x]. From our first relation we have Mtjti;N = Mtj2N € 


[12]. Using conjugation, we determine the relations 
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Mtjotg = Mti2 


Mtyatio = Mtie2 


Thus these two double cosets also exist in [12] as well. We then determine the double 
cosets Mtigtjand Mt t4 are both new double cosets and move forward as [12 1] and 


[12 4] respectively. 


Now we consider the next double coset MtjgtiN = {M(tiati)"|n € N} = 
{Mtyoti, Mtatio, Mtiote, Mtgt4, Mtrtio,..., Mt3te} for a total of 48 distinct, equivalent 
single cosets.The coset stabilizer N“@2)) > N12! =< e >. This implies, the number of 
single cosets is at most Cy — & = 48. The orbits on {1, 2,3, 4,5, 6,7, 8,9, 10,11, 12} 
are {1},{2},{3},{4},{5},{6},{7},{8},{9},{10},{11},{12} and we will now determine 
to which double coset MtygtitiN, MtyatiteN, Mtyotit3N, MtyotitaN, MtyatitsN, 
MtyotiteN, MtiotityN, MtiotitgN, MtiotitoN, MtrotitioN, Mtiotity,N, and 
Mtotiti2N belong. Obviously, Mtiatiti N = Mtig © [12]. We now consider Mtiotita 
and determine which double coset it belongs to. Since we are working in a maximal 
subgroup M of G rather than N, our relations are no longer equal to the identity as 
earlier examples and are now equal to some permutation found in M. With the use 
of Magma, we can determine this relation and verify where cosets belong. We find 
Mtyotit2 € [12 1] and determine using Magma that the relation Mtygtitg = Ma- tity. 
Since x € M we have, Mtygtit2 = Mtyt1. Now, using our definition of a double coset 
defined to be MtjgtiN = {M(tiot1)”"|n € N}, we conjugate Mt,9t;N by the permuta- 
tion (4, 7)(6, 9)(8, 10)(11, 12) € N such that: 

M (tit) 47)(69)810)01,12) — Mt11t, implying Mtyetite = Mtyt, = Mtizt € [12 1]. 


This process can then be repeated on the remaining cosets in similar fashion 
with different relations to determine where cosets belong. Those relations produce the 
following list: 

Mtyotit3 = Mtyota € [12 4], 
Mtyatita € [12 1 4], 
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Mtrotits € [12 1 5], 
Mtitite = Mtrots € [12 4], 
Mthotity € [12 1 7], 
Mthotits € [12 1 8], 
Mthotito € [12 1 9], 
Mtyotitio € [12 1 10], 

Mtyptity € [12 1 11], 

and Mtietitig = Mtieti € [12 1). 


This process was also repeated for the remaining 14 double cosets and estab- 
lished the following Cayley diagram. The Magma code for the remaining double cosets 


can be found in the appendix of this document. 
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Figure 4.3: Cayley Diagram of Mj2 over Maximal Subgroup M = 21 :* Sy 
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4.4.3 Double Coset Enumeration of U,(2) : 2 over 
Maximal Subgroup 2? : Ss; 


2*12.D3x D4 ~ 
wotrtiitstioti2 ytiototia,trtiot7ti2wzytiotetiitatiatetiitatig 


Consider the progenitor 
U4(2) : 2. Our N in this case is order 48. We wish to find a suitable maximal subgroup 
that contains N which we can use to perform our maximal double coset enumeration 


over. To find this M we consider the following: 


> M:=MaximalSubgroups (G1); 
> M; 
Conjugacy classes of subgroups 


[1] Order 1296 Length 40 
Permutation group acting on a set of cardinality 1080 
Order = 1296 = 274 « 374 

[2] Order 1296 Length 40 
Permutation group acting on a set of cardinality 1080 
Order = 1296 = 274 x 374 

E31] Order 1440 Length 36 
Permutation group acting on a set of cardinality 1080 
Order = 1440 = 2°5 *« 3°72 x 5 

[4] Order 1152 Length 45 
Permutation group acting on a set of cardinality 1080 
Order = 1152 = 2°7 « 3°2 

[5] Order 1920 Length 27 
Permutation group acting on a set of cardinality 1080 
Order = 1920 = 2°7 *« 3 * 5 

[6] Order 25920 Length 1 
Permutation group acting on a set of cardinality 1080 
Order = 25920 = 2°6 « 374 « 5 


In this case nT for all maximal subgroups of G. Through trial and error using Magma 


we determine which subgroups contain our N using the following code: 


C:=Conjugates (G1,M[5] ‘subgroup) ; 

CC:=Setseq(C); 

for i in [1..#CC] do if f(x) in CC[i] and f(y) in CC[i] 
and f(z) in CC[i] and f(w) in CC[i] and f(v) in CC[i] 
then i; end if; end for 


VV VV Vv 
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Both the subgroups M[1] and M[5] contain our N and since the order of M[5]‘subgroup 
is larger we will proceed using this M. The rest of the code to determine the relation 


which will produce our M from our G presentation will be included in the appendix. 


M is determined to be (2+) : Ss. We use the following code to verify how many 
double and single cosets our Cayley diagram should contain: 
> #DoubleCosets (G,M, sub<G|x,y,Z,W,v>) ; 
5 


> #G/#M; 
27 


and now we begin the process of double coset enumeration of U4(2) : 2 over the maximal 


subgroup 24 : Ss. 


One major difference from this point forward is the way we define our double 
cosets. When we perform double coset enumeration over N, our double coset is defined 
NwN = {Nw"|n € N}. This allows us to set our relations found in N equal to the 
Id(N) and establish relations manually. Since we have decided to proceed using M our 
new definition of a double coset for this set is MwN = {Mw"|n € N} and our rela- 
tions are now equal to an unknown permutation in M. This makes solving relations by 
hand almost impossible. To complete this process, we will use Magma to determine the 
relations. The presentation and symmetric generators will be included in the apendix. 


With this in mind we begin the process. 


= 2*12:D3x D4 
If we allow G = wortrtiitstioti2,ytiztoti2,trti2t7ti2,ezytiatetiitatiotetiitatie’ 


M:=sub< G1|f(x), f(y), f(z), f(w), Flv), flaxtaaxtey* zxv et ey kurt yx vxtxv) >, 


and t ~ tj2 we can complete the process of double coset enumeration over the maximal 
subgroupand produce the following Cayley Diagram. The Magma code for this maximal 


double coset enumeration can also be found in the appendix. 
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Figure 4.4: Cayley Diagram of U4(2) : 2 over Maximal Subgroup 2* : Ss 


4.5 Conclusion 


Double coset enumeration is a challenging process. While the process turns 
out to be repetitive, proving relations can be a daunting task. Luckily, Magma helps us 
determine how the relations interact with one another to determine where double cosets 


belong. Then the user’s job becomes solving the puzzles embedded in the group. 
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Chapter 5 


Monomial Progenitors 


5.1 Introduction 


There are other ways to construct progenitors then simply stabilizing a single 
t;. One such way is inducing a linear character from the quotient group up to G. Since 
this can be performed the question of whether or not induction can be performed on 
simple groups arises. Of course, simple groups contain only trivial normal subgroups 
but they do have plenty of maximal subgroups. While this fact cannot guarantee in- 
duction will take place it does not prevent it from being attempted. In fact, while it is 
rare that a monomial progenitor can be constructed in this fashion it can be done. This 


section will demonstrate the full process of constructing monomial progenitors. 


5.2 Constructing the Monomial Progenitor 


17: PGLs(9) 


5.2.1 Choosing an Control Group 


Before we start inducing a character up to G we can choose our control group 


N. For this investigation N was chosen to be PG'L2(9): 


>Tl=TransitiveGroups (12); 
>for i in [1..#T] do if IsIsomorphic(T[i],PGL(2,9)) then i; 
end if; end for; 
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182 
>G:=TransitiveGroup (12,182); 


This same process was used for the second example in this chapter but will 


not be shown. We will now go through the process of creating a monomial progenitor. 


5.2.2 Inducing and Verifying a Linear Character 


We will construct a monomial presentation of 17*!° :,, PGL2(9) by first giving 


a presentation of PGL2(9). That presentation is: 


1 1 L 


azay lace zey (et ay ty (ety)? >. 


O72! DP no 
SOY eee ed 


To achieve a monomial presentation we must induce a linear character from a subgroup 
H of G. To insure we get an irreducible character we must choose a subgroup with index 
matching the degree of an irreducible character of G. We consider the character table 
of G = PGL2(9) in Table 5.1 and note G has characters y.1, V.2,.--;X.11- We proceed 
using x1, and look for a subgroup of order 72 so that oo = 10. This produces the 


index as follows: 
[G : H] = [PGL2(9) : 3? : 8] = 10 


Since the index of the two groups is 10. If a matrix representation exists it will be 


represented by a 10 x 10 matrix. 


We produce a character table for 3? : 8 in table 5.2. We will verify the induction 
X.5 of 3? : 8 to x11 of PGL2(9) by considering the irreducible characters ¢ (of H) and ¢@ 
(of G). G = PGL2(9) is generated by xx, yy, and zz where xx = (1,3, 5)(2, 4, 12)(7,9, 11), 
yy = (1,7,3,9,5)(2, 4, 6, 8, 10), and zz = (1, 12)(2, 3)(4, 11) (5, 10)(6, 9)(7, 8). Eliminating 
the information we will not use from the Character tables of G and H we produce Tables 


5.3 for G,and 5.4 for H. Using our definition of induction we reproduce ¢@ using ¢ (of H). 
G 
o¢ = he QeweHnc, ?(w), where n = a = m = 10), 


of = 2 Nwennc, $(w) 


which implies $f = 4+2(¢(1)) = 10(1) = 10. 
$= 33 LweHnc, $(w) 

09 = 8 DN wennc, $((2,8)(5, 11) (6, 12)(7,9)) 
which implies ¢% = #2(4(0)) = (0) =0. 


oz = rg wEHNCs o(w) 


OF = 2 Nwvennc, O((2,8)(5, 11)(6, 12)(7, 9)) 


which implies ¢f = 72(9(¢((2, 8)(5, 11)(6, 12)(7,9))) = 2(9(-1)) = —2. 


of = 50 ncHne: o(w) 


$F = 8 Sexe, O((1, 11, 5) (2,4, 8)(6, 10, 12)) 


which implies ¢f = #(8(@((1, 11, 5)(2, 4, 8)(6, 10, 12))) = $(8(1)) =1. 
$$ = 95 Lwennc, o(¥) 

69 = 95 Nwenncs 20) 

which implies ¢F = §((0)) = (0) =0. 

$8 = 72 Lwennos OW) 

$68 = 7 Lwennos $0) 


which implies ¢§ = 73 (4(0)) = #4 (0) =0. 
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OF = 73 Dwennc; P(e) 
OF = 7 Lwennc; (0) 
which implies ¢% = 7(4(0)) = #(0) =0. 
OS = 99 DweHncy P(e) 


OF = 33 Dwexncs $((1,4,3, 10) (2, 7, 6, 11,8, 9, 12, 5)) 


oF = #%(9(G((1, 4, 3, 10)(2, 7,6, 11, 8,9, 12,5))) = $(9)(—Z1) = (-Z1) 


note:—Z, = —Zp since they are both primitive eighth roots. 
G _ 10 
Qs = 90 DwEHNCs o(w) 


$F = $F NeweHncs $((1, 4,3, 10)(2, 9, 6, 5,8, 7, 12, 11) 


oF = H(9(O(((1, 4, 3, 10)(2, 9, 6, 5, 8, 7, 12, 11)) = §(9)(Z1) = (Z1) 


note:Z, = Z similarly. 
o% = 7  wEHAC 10 o(w) 
% = 3 we eeHAC (0) 


which implies OF; = #3 ((0)) 


I 
ale 
— 
=) 
~~" 
I 
j=) 


Finally, o% = u wEHNCr ew) 
b% = n DweHNC (0) 


which implies oo = #3 ((0)) 


I 
ale 
— 
j=) 
~" 
I 
i=) 
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so @ ‘= 10,0, —2,1,0,0,0, —Z2, Z2,0,0 and we have verified that 
x5 of 37: 8 induces x11 of PGL2(9). 


Table 5.1: Character Table of G 


M Cp G9: C3 Gar “Op” Ce C7 Cg Cy Cio Cu 
XA 1 1 1 1 1 1 1 1 1 1 1 
X.2 1 -1 1 1 1 1 1 -l -l -l -l 
X.3 8 2 0 -l 0 Z 1142 0 0 —2 #2 -Z1 
X.4 8 -2 0 -1 0 L142 ZA 0 0 ZA VAL 
X.5 8 2 0 -l 0 11#2 Z\ 0 0 —Zy — 2462 
X.6 8 -2 0 -l 0 Z 1142 0 0 L1#2 Z\ 
X.7 9 1 1 0 1 -l -1 -l -l 1 1 
X.8 9 -l 1 0 1 -1 -l 1 1 -l -l 
xg 10 O 2 1 -2 0 0 0 0 0 0 
x19 10 O -2 1 0 0 0 Zo —L 0 0 
X1 10 O -2 1 0 0 0 —ZL Zo 0 0 


# denotes algebraic conjugation. 
Z, is the primitive fifth root of unity. Z is the primitive eighth root of unity. 


Table 5.2: Character Table of H 


x Cy Co Czy Cy Cs Ce Cy Cg Co 
X1 dL 1 1 1 1 1 1 1 1 
X2 dL 1 1 1 1 -1 -1 -1 -1 
vie, th. i A. Sh et I I I iI 
ra: a Oe a fy I I I 
wie, Sie ES ot Zi Zi#3 —-Z1 —Z1#3 
X.6 1 -1 1 -I I 1143 Z1 —2 73 -—Z1 
X.7 1 -1 1 -I I —2 73 —Zy 1143 Z 
X.8 1 -l 1 I -I —Zy —21#3 Zy 1143 
x9 8 O -1 O O 0 0 0 0 


# denotes algebraic conjugation. 
Tis the primitive fourth root of unity. Z is the primitive eighth root of unity. 


Table 5.3: v.41 of G 


o° | Class | Size Class Representative 

10 Cy ah Id(G) 

0 C2 36 | (1, 12)(2, 3)(4, 11)(5, 10)(6, 9)(7, 8) 
-2 C3 45 (2, 10)(3, 11)(4, 6)(7, 9) 

te -| 80 (1, 3, 5)(2, 4, 12)(7, 9, 11) 

0 Cs 90) | C1 502; 4, 106)(3,- 7.119) 08; 12) 
0 C6 72 (1,75. 3, 9; 5)(2, 4;-6, 8, 10) 

0 Cr 72 (1, 3, 5, 7, 9)(2, 6, 10, 4, 8) 
—Zy| Cg 90 (1.8, D) d2)(2, 11,-4,-9), 10,3, '6,. 7) 
Z2 Cy 90 (he 12. 6. 8)( 29-6. le TOs 7, As 2) 
0 Cio 72 (165% 6 10) 35 12, 11. 2s, 9, Ay (5,-8) 
0 Ci 72 (1, 10; Ty, A, 7, 12; 95-6, 3;,2)(5,'8) 

Table 5.4: y.5 of H 
o) Class | Size Class Representative 
D, 1 Id(H) 

-1 Dy 9 (2, 8)(5, 11)(6, 12)(7, 9) 

1 Dae | <8 (1, 11, 5)(2, 4, 8)(6, 10, 12) 

I Ds | 9 | 0, 3)2, 6, 8, 12)(4, 10)(, 7, 11, 9) 
al Ds | 9 | (4, 3)(2, 12, 8, 6)(4, 10)(5, 9, 11, 7) 
Zi Da... 95/48, 10) CO, 05,0857, 12D) 
M143 D7; 9 (1,10, 3,4), :5,-12,°9;, 8, 11,6; 7) 
—Zy Dg 9 (1,.43;:10)(2, 7,6, 11,8, 9:12, 5) 

—Z1#3 | Do 9 (1,490.3; ANN 1 27,8,05 6.9) 


Equivalencies from table to construct matrix: 1 = 1, -1 = 16, 
8, 219763 = 2, —Z, = 9, and —2, #3 = 15. 


I=13,-I 


AZ, 
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With induction taking place we now verify the monomial representation has 


the following generators: 


O° 18.0: 08: 20" 0 00 0 
ica ce 
aledes ak eee ae a 
0000100000 
eal 0 000015000 
Jo 0 00000010 
ae un 
O04 OO Oe AO 
Ne he dee a ss tes ce 
lo 0 00010000 
6 Oo tO 00 0 0 6 6 
eee 
bee ee seg 
0000090000 
fell 0 oon 00 900) 
1 o 00000000 
eet) e200) 
0000000001 
ee nanos 
Gee aoe Ge S| 
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ee eeced 
15 0 20: Oe, 150802 -0 
lo 0016000000 
oe ) 
A(es)= | 00 00 0 ae 
000 0000080 
Lae eo ee 
foo 0 0100000 
000001350000 
ee erearbee: 


5.2.3 Verifying the Monomial Representation 


Since we have a linear character @ of the subgroup H of index n in G we 
lett G = Ht, U Htp U AHtg U... U Htyg where the t;‘s are transversals of G acting 
on H. That is G = He U H(1,11,3)(2, 12, 10)(4,6,8) U H(1,9, 11)(2, 4, 10)(6, 8, 12) U 
A(1,8,9,.10,.7,6,3,2;11, 12)(4,5) UW A, 8, 11, 2,7, 6,5, 12,3, 4)(9,10) WA, 5,953; 7) 
(2,10, 8,6,4)) U A(1, 5,9, 3, 7)(2, 10, 8,6, 4) UA(1, 7,9, 5)(2, 8, 4, 12)(3, 11)(6, 10) U 
H(2, 10, 8,6, 12)(3,9,5, 11, 7)U H(1, 3, 11, 9)(2, 10, 8, 6)(4, 12) (5, 7). 


Continuing the process in a 10x10 matrix: 


b(ti xt") (tats!) 7 athata) | 
AGS | O(teaty')  o(tewty!) | 


| o(trot;) se .. G(tiort{g ) 


We will calculate all 100 elements of the matrix using the following calculation using 
the ty =e, to = (2,12)(3,5)(6, 10)(7, 11), ... , and typ = (1,10, 11, 12,5, 8, 9, 2)(3, 6, 7, 4) 
with each ¢; corresponding to each transversal respectively from the G listed before. 
To conserve space we will calculate the multiplication of text; and list the result- 


ing permutation rather than show the entire process. For example: b(tixt;') = 
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o(e(1, 3, 5)(2, 4, 12)(7, 9, 11)e1) = H((1, 3, 5)(2, 4, 12)(7, 9, 11)) We will bypass the mid- 
dle step and go directly to what o(tirt;') is equal to. Since (1,3, 5)(2, 4, 12)(7,9, 11) 
¢ H $((1,3,5)(2, 4, 12)(7,9, 11)) = 0 We proceed as follows: 


Row 1: 

o(tirty') = $((1, 3, 5)(2, 4, 12)(7,9,11)) =0 
b(tixts') = o((1, 11, 7, 9)(2, 8, 6, 4)(3, 5)(10, 12)) = 13 
o(tiats;') = $((1,3,5, 11, 7)(4, 8, 6, 12, 10)) = 0 
b(tixt;') = o((1,6, 7, 8)(2, 5, 12, 3,4, 11, 10,9)) =0 
o(tizts*) = $((1, 12, 11, 2,3, 6,7, 10,9,8)(4,5)) =0 
o(tiats') = $((1,9, 11, 3)(2, 6, 8, 10)(4, 12)(5, 7)) 
o(tiztz') = $((1,5, 7)(2, 6, 12)(3, 11, 9)) =0 
o(tiztg') = ((1, 11)(2, 8)(3, 9)(6, 10)) = 0 
o(tizty') = $((1, 7,3, 9,5)(2, 4, 6, 8, 10)) = 0 
b(tiztig ) = $((2, 12, 6,8, 10)(3, 7, 11,5,9)) =0 

Row 2: 

o(tert;') = $((1,7,9, 11, 5)(4, 6, 8, 12, 10)) = 0 
b(texts') = o((1,7,9)(2, 10, 8)(3, 11,5)) = 0 
b(textz +) = H((1, 7)(2, 10)(4, 12)(5, 11)) = 16 
b(textz') = o((1, 10,5, 12, 9, 2,3, 6)(4, 7,8, 11)) =0 
b(texts') = O((1, 2, 11, 6)(3, 12,9, 8,5, 4,7, 10)) =0 
b(terte') = H((1,3, 9, 11)(2, 4, 8, 12)(5, 7)(6, 10)) = 0 
o(textz') = $((1, 9, 3, 5, 7)(4, 12, 10,6,8)) =0 
b(tertg') = $((2, 12, 6)(3, 11,9)(4, 10,8)) =0 
b(terty') = H((1, 11, 9, 5)(2, 12)(3, 7)(4, 8, 6, 10)) = 0 
P(tatio) = O((1,5, 9,3) (2, 6, 10, 12)(4,8)(7,11)) =0 
Row 3: 


o(tgxt;') = o((1, 11,3, 5)(2, 12, 6, 8)(4, 10)(7,9)) = 13 
o(tzaty') = o((3,5)(4, 12)(7, 9)(8, 10) =0 
o(tzxtz +) = (1,9, 7)(2, 8, 10)(3, 5, 11)) =0 


b(t3at,') = o((1, 2, 11, 6)(3, 4, 9, 10,5, 12,7,8)) =0 
o(tzats') = (1,8, 11, 12, 7, 10, 3, 6)(2,5, 4,9)) = 0 
(tgrts') = o((1, 11, 9, 3) (2, 12, 8, 4)(5, 7)(6, ae 
o(tzrtz*) = $((1,3, 11, 5, 7)(2, 4, 10, 6, 8)) = 
o(tzatg') = o((1,3, 9)(2, 4, 6)(8, 12, 10)) = 0 
o(tzrty') = $((1, 5)(2, 6, 10, 4)(3, 9, 11, 7)(8, 12)) = 0 
b(tzrtip ) = (1,3, 7, 11)(2, 4)(5, 9)(6, 10, 12,8)) = 0 
Row 4: 

b(taxt;') = o((1,8, 11, 2, 7,6, 5, 12,3, 4)(9, 10)) = 0 
b(taxtz') = $((1, 6,5, 2, 7, 4, 3, 8)(9, 12, 11, 10)) = 0 
o(tartz') = $((1,6,5, 8, 9,4, 11, 10)(2, 7, 12,3)) =0 
b(taxtz') = 6((2, 10, 8)(3, 5, 11)(4, 12,6)) = 0 
o(t4ats*) = d(e) =1 

o(tarte') = H((1, 10, 5, 12, 9, 2,3, 6)(4, 7,8, 11)) =0 
o(tartz') = $((1, 8, 3, 6, 11, 2,9, 10)(4, 7, 12,5)) =0 
o(tarty') = o((1, 2)(3, 8)(4, 5) (6, 9)(7, 10)(11, 12)) = 0 
b(tarty') = $((1, 10, 3, 4)(2, 11, 12,7, 8,5,6,9)) =0 
b(tartip ) = (1, 10, 11, 6,7, 8, 3, 12)(2,5,4,9)) =0 
Row 5: 

b(tsxt;') = o((1,8, 7, 6)(2, 9, 10, 11, 4,3, 12,5)) =0 
b(tsxtz') = o((1,6, 3, 2, 9, 12,5, 10)(4,11,8,7)) =0 
o(tsxtz') = $((1, 6, 11, 2)(3, 8, 7, 12,5, 10,9,4)) = 0 
o(tsxtz') = o((2,8, 10)(3, 11, 5)(4,6, 12)) = 0 
o(tsxts*) = $((2, 10, 8)(3, 5, 11)(4, 12,6)) =0 
o(tsrte') = H((1, 10, 11, 6,7, 8, 3, 12)(2,5,4,9)) =0 
o(tsrzt7*) = $((1,8, 9, 10, 3, 4, 5, 2)(6, 7, 12,11)) =15 
o(tsrtg') = O((1, 2,7, 10,3, 4, 11, 8)(5, 12,9,6)) = 0 
o(tsrty') = H((1, 10,5, 12, 9, 2,3, 6)(4, 7,8, 11)) =0 
b(tsrtig ) = (1, 10, 3, 4)(2, 11, 12, 7,8,5,6,9)) =0 


o 
=6 
= 
=6 
=¢ 
=P 
=6 


1,7, 9)(3, 5, 11)(4, 6, 12)) 


1)(2, 4)(3, 7)(6, 12)) 


,9)(3,7)(4, 10) (6, 8)) 


1,9) (2,8, 12, 4)(3, 7, 11,5 
1,9, 3, 7)(2, 6, 12, 8)(4, 10 


= 6((1,3,9, oN 12, 10, 6)(4,8)(7, 11)) 
,4)(5, 9)(6, 8, 12, 10)) = 
1,12, 3,8, 7,6, 11, 10)(2, 9, 4,5)) 
1,4, 3, 10)(2, 9, 6, 5,8, 7, 12, 11)) 


=0 


) 
) 


ie =0 
2, 8, 6)(3, 7, 11)(4, 10, 12)) 
=0 


=0 


(6, 10)) 
(5, 11)) 


2,6,4, 10, 12)(3,7,9,11,5)) =0 
1,8, 11,4, 3, 10, 7, 2)(5, 6,9, 12)) = 


1,10, 7, 8,5, 12,3, 2)(4, 11,6,9)) = 


1,5, 9,7, 11)(2, 10, 8, 12,6)) =0 
=0 


2,8, 4)(3, 9, 7)(6, 10, 12)) 


=0 
0 


=0 
=0 


=0 


=0 


=0 


=0 
=0 


=0 
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o(tgxtg') 
o(tgxty *) 


(tgrtiy ) = 


Row 9: 


o((1, 7,3)(4, 12, 8)(5, 11,9)) = 
= $((1, 3, 11, 9)(2, 10, 8, 6)(4, 12)(5, 7)) = 
OL ll eiayo) (2510, 8.46) 0) 


(1, ,12)(5,7)) =0 
(1, )(6,10)) = 0 
(1, )(6,10)) = 0 
2 g(jb3.2o 1 eaOeNL A 7)) =0 
(1, 12,3, 8, 7,6, 11, 10)(2,9,4,5)) =0 
(1, 
( 
( 
(1, 


Sain oth noe ene 0 
= $((1,11,7,9,5)(2, 6, 12,8, 10)) =0 
= $((1,7,9)(3, 5, 11)(4, 6, 12)) =0 


(1, 
= $((1,5,9, Sao. Bead. 10,6,8)) =0 
(1,5)(2, 4, 10, 6)(3, 7, 11, 9)(8, 12)) =0 
= $((1,4, 3, 10)(2, 9,6, 5,8, 7, 12, 11)) =0 
(1,6, 3, 2,9, 12,5, 10)(4, 11,8,7)) =0 
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Each ¢ of H corresponded with a conjugacy class of either H or G. If the element is in a 


conjugacy class from H (seen in table 5.4) we write the value of ¢ for that class. Since 


our matrix was produced in cyclotomic field 8, we needed to produce an order 8 element 


in 17. In this case, 8 was chosen as the element of order 8 but other elements of 17 could 
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have been chosen such as 2 which would have produced a different representation. To 
complete this process, the matrices for yy and zz should also be verified by repeating 
the process above but we will proceed without verifying each specific matrix but will 


instead prove a faithful representation exists. 


To verify the faithful representation recall |PGL2(9)| = 720 and PGL2(9) was 
generated by < z,y,2|x?,y°, 27,... >. Since |A(zx)| = 3, |A(y)| =5 and,|A(z)| = 2 with 
|A(a) - A(y) - A(z)| = 10, the order of our index, we know that (A(x), A(y), A(z)) is a 
faithful representation of PGL2(9). We proceed and produce a permutation represen- 


tation. 


5.2.4 Constructing the Permutation Representation 


We worked in Z17 on matrices of degree 10x10 which implies we are producing 
a 17*!0 :,, PGL2(9) progenitor permutation representation based on the monomial 
representation PGL2(9) = (A(x), A(y), A(z)). We consider the matrix entries for a;; for 
A(x), A(y), and A(z). We know there are 10 t’s, one for each column of our matrix and 
because we have a semi-direct product in our progenitor that the elements of PGL2(9) 
act as automorphisms of < t) > * <tg >* <tg3 >* <tg >* <t5 > 
<tg>* <tr >* <tg >* < tg > * < tio >. We want to represent x, y, and z as 


permutations. To do so we observe: 


a;,; = 1 if the automorphism takes t; — t; 


aij =n if the automorphism takes t; — t? 


that 17*!° is a free product of ten cyclic groups of order 17. More specifically, we will 
construct a table with ten t’s of order 17 labeled from 1...160 found in table 5.5. Viewing 
the first entry of A(x) a1,2 = 13 this implies t; — t3° and so on for each power of ty 
until we reach the identity. The top number of the chart labels each element, the mid- 
dle of the chart shows what the automorphism produces and the bottom number shows 
what that produced element is numbered on the top of the chart. The same process is 


conducted for generators y and z but tables 5.6 and 5.7 will only show part of the process. 


Table 5.5: Automorphisms of A(xx) 
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i a a ee ae ee ee ee ee ee ae ae ee 
4 0 Oot ltgotaityhote Cty tg ty Ott COEtatRSCG 
t+ + + + tL + F Lb + + F + LY 
ty tg dg Pt tig tg eg ae 
122153 121 B14 9A Bs OB 14: BI 1 
15? Gs Cy ASS AG: 20" 081, 98 28 BE 95: 26.6 De <28 
a a a a ee ae ae ae 
t+ + + + + + + + + F LF LS 
ee Ole i ee, ee 
127 19 154 18 20 16 42 133 41 25 107 29 64 = 28 
29 30 31 432 «633 (34. 85 86 87) 88 89 40 4S 42 
to & 8 8 G % % GF  % fo tH & 
t+ + + + F + + + + F Lb oF LS 
Hie 
30 26 2 123 1 35 87 39 144 38 40 36 132 113 
43 44 45 46 47 #48 #49 #50 51 52 53 54 55 56 
B 8 tt & t & to & 8 8B és 
t+ + + + + + + + + F LF LS 
“oe ¢ 8 £ Fe F wm we 8 Be 
131 45 67 49 54 48 50 46 92 103 91 55 47 59 
57.5859 60S 61 62S 3B 64 5 GTB CD70 
a a a 
t+ + + + tL + + Lt + + fF FL 
A Sey ae: A tg ee oe ae Se 
134 58 60 56 52 93 51 65 27 69 44 68 70 66 
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71 72 73 74 75 76 77 ~=6°78 79 80 81 82 83 84 
f # 4 @ @ @ #@ 8 @ # @ @ @ 3 
bode ae Oe Oe OC I 
g 8 @ @ » € 2 8 of 8 a we 
12 83 11 75 7 79 124 78 80 76 142 73 141° 85 
85 86 87 = 88 89 90 91 92 93 94 95 96 97 8698 
fa @ @€ 8 a 0 oD PD DY 2 ee. 
a a ee ee a eS ee a a a ee 
og 4 gf & 8 fg pg at gg 
157 89 34 = 88 90 86 102 63 101 95 1387 99 114 98 
99 100 101 102 103 104 4105 106 107 #=+%108 #+%«109 #%110 #4111 ~=«#+4112 
Doge ee ae ee ee ae 
sr a a ee a a ee | er a 
moo go g dq op oP 2 ef oe wm ge BS 
100 +96 62 03 61 105 117 109 24 108 #4110 106 22 = 48 
113 114 #115 #116 #117 «#+%118 #%«119 #120 121 #122 #123 #124 #125 += 126 
PoP? 2 PS ee? PF Se oP eB 
a re a a a ee a a ore 
Fe ee a a 
21 115 97 119 104 118 120 116 152 33 151 125 77 ~= 129 
127 128 129 130 131 132 133 134 1385 #1386 1387 «©1388 139 140 
og We ae en ee ne i ig eee es 
yo ae oo Se Se ee Oo oo 
i ae ae a ee 
14 128 1380 126 112 23 111 #1385 «57 ©1389 «©94 1388 140 136 
141 142 143 144 145 146 147 #148 #149 150 151 152 153 154 
a a, 
Ve J Bk ae ae Ae ee Ae 
a a a ee 
72 13 71 145 37 149 4 148 150 146 32 3 31 155 


119 


155 156 157 158 159 160 
2 a a 
t+ + + + LF 
(eg 
17 159 84 158 160 156 


Table 5.6: Partial Y Table for G = PGL2(9) 


ie De Br a ge ee 8h 150-160 
a tg 0h eee hes SE ee 
t+ + + + + bo +o Ld 

to! fle ty. seks HOSS Nog? - Thee oe 
BoE 28 Ba oa, ape LOO FO. DHT 


Table 5.7: Partial Z Table for G = PGL2(9) 


ee Oy 38 Sap i Tes Ss 50. A160 
i; ee een | ce 
+ + + + ++ + + 4 
Se ee eee ee ee 
(20 WAl- 164 pegs 1S? 16 <7e 


Using table 5.5, we can construct permutations using our labels for each au- 
tomorphism. Consider element #1, t; from the table. This produces the permutation 
(1,122,33) if we follow each element and its corresponding automorphism number la- 
beling we produced. Repeating the process for x, y, and z, we produce the following 


permutations: 


X=(1,122,33)(2,153,31) (3,121,152) (4,5,147)(6,9,10)(7,74,75)(11,82,73)(12,143,71) 
(13,81,142) (14,15,127)(16,19,20) (17,154,155) (21,42,113) (22,133,111) (23,41,132) 
(24,25,107)(26,29,30) (27,64,65) (32,123,151) (34,35,87) (36,39,40) (37,144,145) 
(43,131,112) (44,45,67) (46,49,50) (47,54,55) (51,92,63) (52,103,61)(53,91,102) 
(56,59,60) (57,134,135) (62,93,101) (66,69,70) (72,83,141)(76,79,80) (77,124,125) 
(84,85,157)(86,89,90) (94,95,137) (96,99,100) (97,114,115) (104,105,117) (106,109,110) 
(116,119,120) (126,129,130) (136,139,140) (146,149,150) (156,159,160) 
Y=(1,3,122,14,6)(2,74,36,31,33) (4,86,81,83,142) (5,88,90,87,19) (7,39,15,8,10) 
(9,85,128,130,127)(11,13,82,34,16)(12,154,76,71,73)(17,79,35,18,20) (21,23,42,54,26) 
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22,64,116,111,113) (24,96,91,93,102) (25,98,100,97,59) (27,119,55,28,30) (29,95,48,50,47) 
32,144,156,151,153) (37,159,75,38,40) (41,43,132,94,46) (44,106,101,103,62) 
45,108,110,107,99) (49,105,138, 140,137) (51,53,92,114,56)(52,134,66,61,63) 
57,69,115,58,60) (65,118,120,117,139) (67,109,135,68,70)(72,124,146,141,143) 
77,149,155,78,80) (89,125,148,150,147) (104,136,131,133,112) (84,126,121,123,152) 
129,145,158,160,157) 


NNN DD 


Z=(1,72)(2,141)(3,154) (4,153) (5,8) (6,79) (7,20) (9,146) (10,87) (11,152) (12,121) (13,144) 
(14,143) (15,18) (19,126) (21,62) (22,101) (23,134) (24,133) (25,28) (26,69) (27,60) (29,106) 
(30,97) (31,142) (32,81) (33,124) (34,123) (35,38) (36,149) (37,80) (39,86) (17,40) (16,159) 
(41,52) (42,61) (43,114) (44,113) (45,48) (46,59) (47,100) (49,66) (50,107) (51,132) (53,104) 
(54,103) (55,58) (56,139) (57,120) (63,94) (64,93) (65,68) (70,117) (71,122) (73,84) (74,83) 
(75,78) (76,129) (77,160) (82,151) (85,88) (89,156) (90,127) (91,112) (92,131) (95,98) (96,119) 
( ) 

( ) 


YS wa 


99,136) (102,111)(105,108) (109,116) (110,137) (115,118) (125,128) (130,147) (135,138) 
67,140) (145,148) (150,157) (155,158) 


and we have completed the process of creating a permutation representation from our 


matrices. 


5.2.5 Creating a Presentation of the Progenitor 


To construct a presentation for the progenitor we must choose a t to normalize 
from our ten choices< t] > * < tg >* < tg >* <ty>*< th >*k< tg >*< ty >* 
<tg >* <tg > * < tio >. Let t ~ t; and we must find permutations in PGL2(9) 
which normalize < t; >, or fix the following set: 

Abit Pet ptististigtt eistr Mer Sti Pr ott Bor SEL pe) bie is a dehnine character: 
istic of a monomial progenitors. Monomial progenitors fix a set of t’s while permutation 
progenitors fix only one specific t;. We discover the normalizer of < t; > in PGL2(9) is 


generated by 4 elements which we will label A, B, C, and D: 


A = (1, 81, 121, 141, 151, 71, 31, 11)(2, 19, 8, 83, 130, 4, 7, 5)(3, 90, 14, 17, 
15, 12, 39, 18)(6, 16, 36, 76, 156, 146, 126, 86)(9, 88, 123, 150, 84, 87, 85, 82)(10, 34, 37, 
35, 32, 79, 38, 13)(20, 74, 77, 75, 72, 159,78, 33)(21, 91, 41, 101, 131, 61, 111, 51)(22, 
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59, 28, 93, 50, 24, 27, 25)(23, 100, 54, 57, 55, 52, 119, 58)(26, 56, 116, 66, 136, 106, 
46, 96)(29, 98, 43, 110, 94, 97, 95, 92)(30, 114, 117, 115, 112, 69, 118, 53)(40, 154, 157, 
155, 152, 149, 158, 73)(42, 99, 48, 103, 140, 44, 47, 45)(49, 108, 133, 70, 104, 107, 105, 
102)(60, 64, 67, 65, 62, 139, 68, 113)(63, 120, 134, 137, 135, 132, 109, 138)(80, 144, 147, 
145, 142, 129,148, 153)(89, 128, 143, 160, 124, 127, 125, 122), 


B = (2, 40, 156)(3, 127, 84)(4, 13, 87)(5, 89, 148)(6, 152, 130)(7, 14, 33)(8, 
75, 39)(9, 128, 15)(10, 36, 122)(12, 80, 146)(16, 142, 90)(17, 34, 73)(18, 155, 79) (19, 88, 
35)(20, 76, 82)(22, 120, 136)(23, 47, 94)(24, 53, 97)(25, 99, 108)(26, 132, 50)(27, 54, 
113)(28, 65, 119)(29, 48, 55)(30, 116, 42)(32, 160, 126)(37, 74, 153)(38, 145, 159) (43, 
137, 104)(44, 93, 107)(45, 109, 68)(46, 112, 140)(49, 138, 95)(52, 70, 106)(56, 102, 
100)(57, 114, 63)(58, 135, 69)(59, 98, 115)(60, 66, 92)(62, 110, 96)(64, 133, 117)(67, 
134, 103)(72, 150, 86)(77, 154, 143)(78, 125, 149)(83, 147, 124)(85, 129, 158)(105, 139, 
118)(123, 157, 144), 


C = (2, 74, 15)(3, 159, 130)(4, 125, 142)(5, 82, 34)(6, 127, 38)(7, 158, 36)(8, 
126, 157)(9, 40, 153)(10, 33, 129)(12, 154, 35)(13, 149, 90)(14, 85, 122)(16, 87, 78)(17, 
148, 76) (18, 86, 147)(19, 80, 143)(20, 73, 89)(22, 64, 55)(23, 139, 50) (24, 45, 102)(25, 92, 
114) (26, 47, 118)(27, 138, 116)(28, 46, 137)(29, 120, 133)(30, 113, 49)(32, 144, 75)(37, 
128,156)(39, 160, 123)(42, 54, 95)(43, 119, 140)(44, 135, 62)(48, 136, 117)(52, 134, 
115)(53, 109, 100)(56, 97, 68)(57, 108, 66)(58, 96, 107)(59, 70, 103)(60, 63, 99)(65, 112, 
104) (67, 98, 106)(69, 110, 93)(72, 124, 155)(77, 88, 146)(79, 150, 83)(84, 145, 152)(94, 
105, 132), and 


D = (1, 121, 151, 31)(2, 123, 6, 129)(3, 36, 9, 32)(4, 17, 88, 155)(5, 154, 
147,78) (7, 128, 75, 84)(8, 145, 14, 37)(10, 40, 160, 130)(11, 81, 141, 71)(12, 83, 16, 
89)(13, 76, 19, 72)(15, 144, 127, 158)(18, 125, 34, 77)(20, 80, 150, 90)(21, 41, 131, 
111)(22, 43, 26, 49)(23, 116, 29, 112)(24, 57, 98, 135)(25, 134, 107, 68)(27, 48, 65, 
94)(28, 105, 54, 117)(30, 120, 140, 50)(33, 156, 39, 152)(35, 124, 87, 148)(38, 85, 74, 
157)(42, 133, 46, 139)(44, 97, 108, 115)(45, 114, 67, 58)(47, 138, 55, 104)(51, 91, 101, 
61 
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52, 93, 56, 99)(53, 66, 59, 62)(60, 70, 110, 100)(63, 106, 69, 102)(64, 137, 118, 


Ht 
)(73, 146, 79, 142)(82, 143, 86, 149)(92, 103, 96, 109)(113, 136, 119, 132)(122, 153, 


122 


126, 159) 


For a presentation we must convert these permutations into words which we 


find to be: 


A=ay !a!zyz, 
B= y’a', 
C =a 'zy~1z, and 


D = xzary zy? 


In the permutations of A, B, C, and D, we find that A sends 1 > 81 or t; — t? and D 


sends 1 + to 121 or t; — t{3 Which implies the following respectively: 


A > tty @*zyr4-9 = Iq 


D = aye" ¢- 8 = Td 


which is the monomial part of the progenitor. 


The other two words for B and C fix t, and will commute with t as follows 


B => (t,y*a—!) 


C > (t,a7hzy-1z) 


and adding these to our presentation for PGL2(9) we obtain conclude the process and 
obtain the monomial progenitor: 
1 ap PCI) SS mye yp ee oy eee Ree ye ee) 


(art, y 1)? poy a hzyey—9 poawy zy? 4-13 (¢ ya), (t, a tzy- +2) >, 


5.3 Constructing the Monomial Progenitor 13”? :,, (2? x 3) : 
2 


We will construct a monomial presentation of 13*? :,, (2? x3) : 2 by first giving 


a presentation of (2? x 3): 2. That presentation is: 


<a,y,2|a*, y?, 2°, (a7 1 * y)?, (@, 2), yx 27! ey * z >}. 
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To achieve a monomial presentation we must induce a linear character from a subgroup 
H of G. To insure we get an irreducible character we must choose a subgroup with index 
matching the degree of an irreducible character of G. We consider the character table 
of G = (2? x 3): 2 and obtain tables 5.8 and 5.9 because we hope to induce the linear 
character CG[14] using CH[6]. We note the following as our reasoning of pursuing a 


linear character: [G : H] = [((2? x 3): 2:12] =2 


Table 5.8: y44 of G 


go? Class | Size Class Representative 
2 C1 1 Id(G) 
=) Co | 1 | (1, 7)(2, 8)(3, 9)(4, 10)(5, 11)(6, 12) 
0 C3 2 (Ly 7035, 96, 11) 
0 Cr | 2 | (4, 10)(2, 5)(3, 12)(4, 7)(6, 9)(8, 11) 
—2—-2%J| Cs | 1 | (4,5, 9)(2, 6, 10)(3, 7, 11)(4, 8, 12) 
2a Cs | 1 | (1,9, 5)(2, 10, 6)(3, 11, 7)(4, 12, 8) 
0 Or |) 2") Cay 10) ,5, 8 1.6, 9, 12) 
=e Gs ft | (E365, 7,9) 1110; 4 68, 10; 12) 
FD OF il Oo. | Ly th Oe BIO a 168, 6A) 
0 Cio 2 (1, 11, 9, 7, 5, 3)(2, 6, 10)(4, 8, 12) 
0 Car. | 2) Gy Sa, Ol DO 106) 4128) 
0 Cie 2 (1,2; 9; 10, 5, 6)(3, 4,11, 12; 7,8) 
0 C13 2 (1, 6, 5, 10, 9, 2)(3, 8, 7, 12, 11, 4) 
0 Cia 2 (1,8, 3, 10, 5,.12,°7, 2, 9,4, 11,6) 
0 C15 2 (hy 12,11. 1008.2, 6,5, 4,8... 2) 


Where J is the 3rd root of unity 


Table 5.9: y.¢ of H 


ge? Class | Size Class Representative 

i dD, 1 Id(G) 

i D2, | 1 | (1, 7)(2, 8)(3, 9)(4, 10)(5, 11)(6, 12) 

J D3; | 1 | (, 9, 5)(2, 10, 6)(3, 11, 7)(4, 12, 8) 
-J-1 | Ds | 1 | G5, 9)(2, 6, 10)(3, 7, 11), 8, 12) 
—I Ds 1 (Av, 7,10) (250,811 )13,-65)9; 

I De- | a | C40, 7 DO, 11, SC, 129,06) 
itd | D,.| 2 | (1, 9,7, 5, 3)@; 12, 10, 6, x = 
=7 Dg. | i | Ge 375, 7, 9:1 O;-4,,6,8,10; 12) 

Zi De ie We WO, 10,9, Be 7 65 a) 
2149 D0 2 (1,8; 3, 10, 5,12, 7,2, 9, 4, 11,6) 
—Zy Dy 2 (16,11 Ae Oe ote 12 eb LOS 8) 
—Z#5) Di | 2 | CG, 2, 3,4, 5, 6, 7, 8, 9, 10, 11, 12) 


Where J is the 38rd root of unity, 
Lis the 4th root of unity and Z, is Cyclotomic Field 12. 
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Using the tables above we verify the induction similar to the earlier exam- 


ple. We will verify the induction y¢ of 12 to v.44 of (2? x 3) 


: 2 by considering the 


irreducible characters ¢ (of H) and ¢° (of G). G = (2? x 3) : 2 is generated by xx, 


yy, and zz where xx = (1,4,7,10)(2,5, 8, 11)(3,6,9,12), yy = (1, 7)(8, 
= (1,5, 9)(2, 6, 10)(3, 7, 11)(4, 8, 12 


using @ (of H). 


68 = BE Ducrinc, ote), where n= 


of =F Nwennc, $(w) 


which implies $f = ?((1)) 


od = : y weHNCs o(w) 


G| 24 
f= 3 =2. 


2(1) = 2. 


9)(5,11), and zz 


). Using our definition of induction we reproduce ¢° 


oy = i Denes e((1, 7) (2, 8)(3, 9) (4, 10)(5, 11) (6, 12)) 


which implies ¢¥ = 2(¢(—1)) = 2(-1) = —2. 

08 = 3 Lwennc, O(w) 

OF = 3 Dwernc, O((1; 7) (3, 9) (5, 11)) 

which implies ¢f = 3((4(0) = 3(0) =0. 

Of = 3 wenn, Ow) 

$9 = 3 Lwennc, O((1, 10)(2, 5)(3, 12) (4, 7)(6, 9)(8, 11)) 
which implies ¢f = 3((4(0) = (0) =0. 

05 = t Lwennc, Ow) 

08 = F Dwenncs $((1, 5, 9)(2, 6, 10)(3, 7, 11)(4, 8, 12)) 


which implies ¢¥ = 2(¢(—J —1)) = 2(—J —1) =-2-2«J. 


og = i ywEHNCe o(w) 


08 = 7 Laverna $((1 9,5)(2, 10, 6)(3, 11, 7)(4, 12, 8)) 


which implies ¢§ = 2(4((1,9,5)(2, 10, 6)(3, 11, 7)(4, 12, 8))) = 2(J) =2* J. 


of = 5 wEeHAC; o(w) 


bF = $ wenno, $((1, 4, 7, 10) (2, 5, 8, 11)(3, 6, 9, 12) 
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which implies ¢& = 3((0)) = (0) =0. 
og = i ywEHNCs p(w) 


$F = 2 Dwennc, P((1, 3,5; 7,9, 11)(2, 4, 6, 8, 10, 12)) 


which implies ¢¢ = 2?(¢(—J) = 2(-J) =—-2* J 

OS = 7 LweHncy Hw) 

0F = 2 Dwenncy O((1, 11,9, 7, 5, 3)(2, 12, 10, 8, 6, 4)) 
which implies $f = ?¢(1+ J)or2(1+J)=2+2%J 
o% = 5 Dy wEHNCig o(w) 

Pf =  LweHncy O((L, 11, 9, 7, 5, 3)(2, 6, 10)(4, 8, 12)) 
which implies ¢% = 5(¢(0)) = 3(0) =0. 

o% = 5 Paes on p(w) 

OTL = 3 Lwenncy, O((L, 3, 5, 7, 9, 11)(2, 10, 6)(4, 12, 8)) 
which implies ¢f, = 5(¢(0)) = 3(0) =0. 

P12 = 3 Lwenncy, OCW) 

Of = § LweHncyy O((L, 3, 5, 7, 9, 11)(2, 10, 6)(4, 12, 8)) 


which implies $% = 3((0)) = $(0) =0. 
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127 
o% = 3 DH AO is o(w) 

0% = § were, P((1, 6, 5, 10, 9, 2)(3, 8, 7, 12, 11, 4)) 

which implies $9 = 3(¢(0)) = §(0) =0. 

$4 = § Lwenncy $(W) 


0% = 2 VucHncy, CCL, 8,3, 10, 5, 12, 7, 2, 9,4, 11, 6)) 


which implies $%, = 3(26(Z1#5 — Z1#5)) = §(2)(0) =0. 

0% = 5 PD iCHAO is o(w) 

$% = § DeweHncys P((1, 12, 11, 10, 9, 8, 7, 6, 5,4, 3, 2)) 

which implies $f = 3(26(Z1 — Z1) = 3(2)(0) = 0. 

so ONS 2, —2,0,0, -2-—2% J,2« J,0,-2* J,2+2x*J,0,0,0,0,0,0 and we have verified 


that y.¢ of Cy2 induces y.14 of (2? x 3) : 2. With induction taking place we now verify 


the monomial representation has the following generators: 


5:0 01 9 0 
A(aa) = oR » A(yy) = oe , and A(yy) = sage 


Since we have a linear character ¢ of the subgroup H of index n in G we let 
G = Ht, U Ht» where the t, and fg are transversals of G acting on H. That is G 
= He U A(1,7)(3,9)(5,11)). Using the same process as earlier in this chapter we will 
verify the 4 elements of all three matrices using the following calculation t; = e, and 


to = (1,7)(3, 9)(5, 11). 
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A[xx]: Row 1 

o(tirt;') = $((1, 4, 7, 10)(2, 5, 8, 11)(3, 6,9, 12)) =5 
o(tiaty") = o((1, 4)(2, 11)(3, 6) (5, 8)(7, 10)(9, 12)) = 0 
Row 2: 

(tgaty*) = $((1, 10)(2, 5)(3, 12)(4, 7)(6, 9)(8, 11)) = 0 
(tarts!) = o((1, 10, 7, 4)(2, 11, 8, 5)(3, 12, 9,6)) = 8 


Alyy]: Row 1 
(tiyty') = o((1, 7)( 
d(tiyty') = o(e) =1 
Row 2: 


$(tayty') = o(e) =1 

o(tayty') = 6((1,7)(3,9)(5, 11)) = 0 

Alzz]: Row 1 

o(tizt;') = o((1, 5, 9)(2, 6, 10)(3, 7, 11)(4, 8, 12)) = 9 
b(tizty') = o((1, 5, 9) (2, 6, 10)(3, 7, 11)(4, 8, 12)) = 0 
Row 2 

b(tezty') = o((1, 5, 9) (2, 6, 10)(3, 7, 11)(4, 8, 12)) = 0 
b(tazty') = o((1, 5, 9) (2, 6, 10)(3, 7, 11)(4, 8, 12)) = 9 


The reader should note that in the Character Table, I refers to an element of order 4 in 
cyclotomic field 12. This means we are working in the field 13 and two elements of order 
four are 5 and 8. They are also inverses of each other which is why one I is positive and 
one I is negative. Similarly 3 is of order 3 in 13 and the element -J - 1 represents J? or 


3? which is 9. 


We will construct automorphism tables for xx, yy and zz and then calculate 
the permutation representation. Each t has order 13 so we will have 12 copies of t; and 
to. Using table 5.10, we can construct permutations using our labels for each automor- 


phism just as in our previous example. We obtain permutations: 
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xx = (1,9, 23, 15) (2, 16, 24, 10)(3, 19, 21, 5)(4, 6, 22, 20)(7, 13, 17, 11)(8, 12, 18, 14), 
y =(1,2)(3, 4)(5, 6)(7, 8)(9, 10) (11, 12)(13, 14)(15, 16)(17, 18)(19, 20)(21, 22)(23, 24), 
and zz = (1,17,5)(2,18,6)(3, 9, 11)(4, 10, 12)(7, 19, 23) (8, 20, 24) (13, 21, 15) (14, 22, 16). 


Which will be our permutation representation for our progenitor. 


Table 5.10: Automorphisms of A(xx) 


i 32 BG = Re SOR 0 A 
th teas aeons ee a es Gee 
+ + + td to + bobo bobo to bio d 
Be a tbe Gt a ae aR RE ee ER 
OT 6-10 -“§-  B 22" AS. a BB 2 7 Ae Are 8 


Table 5.11: Partial Y Table for G & (2? x 3) : 2 


i Sa a ae eee 
ty We Te ee a ee 
a nn 
bas Hh A en ek ht eye tee 
OT Wa a a EO 8 


Table 5.12: Partial Z Table G & (2? x 3) : 2 


i i an a on ak ae 
Ee US| be ek. on eae. ee 
+ + +b dtd + + ib 
Lae He eee We ae BR «gh = 
10-18" 0-29 ie ks 16 8 


Once again we create a presentation for the progenitor from our two choices 
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for t. < t, > * < tg > Let t ~ t; and we must find permutations in (2? x 3) : 2 
that stabilize {t1, ¢?, t?, tf, ¢7, ¢?, ef, t9, 2, f°, tt, t12, 19}. We discover the normalizer of 
< t, > in (2? x 3) : 2 is generated by 2 elements which we will label A and B: 

A = (1,15, 23, 9)(2, 10, 24, 16)(3, 5, 21, 19)(4, 20, 22, 6)(7, 11, 17, 13)(8, 14, 18, 12) 

B = (1,5, 17)(2, 6, 18)(3, 11, 9)(4, 12, 10)(7, 23, 19)(8, 24, 20)(13, 15, 21) (14, 16, 22) 


For a presentation we must convert these permutations into words which we 


find to be: 


AS gn}, 


ae 


In the permutations of A, we find that A sends 1 — 15 or t; — t}® and B sends 1 > 5 


or t; + t? Which implies the following respectively: 


A> t® 't7? = Id 
Bo ¢?=1d 


which is the monomial part of the progenitor and adding these to our presentation for 


(2? x 3) : 2 we conclude the process and obtain the monomial progenitor: 


13° Gy fled) 22 = 652.920 ee OY) {Gye yee FY Re 


ge? ee 38S 


5.4 Faithful Representations of Monomial Presentations 


A faithful representation may not always be possible to construct. Consider 
the example from chapter 2, Zz? D4. We constructed this wreath product by hand and 
it had the following generators:(1, 5), (2,6), (3, 7), (4,8), (1, 2,3, 4)(5, 6, 7,8), (1, 3)(5, 7). 
We can view the Character table of this group G, and investigate the subgroups H which 
induce a linear character on G. Using the following code we can produce a list of all 
inductions that take place among G and H. The user of this code should know, z should 
be chosen based on the Chi table of G. In this example the first column of the chi table 
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of G was 4 for the values 15 through 20. Since G is order 128, H should be chosen so 
that a = 4 which implies the order of H = 32 which also should be entered into the 
code. So z is in [15..20] while #H eq 32 in the code and should be modified as the user 


requires. 


Sg:=Subgroups (G) ; 
CG:=CharacterTable(G); 
for x in [1..#Sg] do 
H:=Sg[x] ‘subgroup; 
CH:=CharacterTable(H); 

for y in [1..#CH] do 

for z in [15..20] do 

if Induction(CH[y],G) eq CG[z] and #H eq 32 
then x,y,2Z; 

end if; end for; end for; end for; 


Items on this list are of the form 159 2 17 for instance. This indicates to the user, that 
the subgroup H listed as number 159 has y.2 in the character table which induces up 
to G for the y.17 of G. This will of course need to be entered and verified using 

the following code: 

>H:=Sg[159] ‘subgroup; 

>CH:=CharacterTable(H); 

>I:=Induction(CH[2],G); 


>I eg CG[17]; 
true 


From here we investigate the character table of H to determine which cyclo- 
tomic field we are working in. Since there is no indicator at the bottom of the table, 
this implies we are working in CyclotomicField(2) or Z3. Now that we know which field 
we are working in, the transversals are used to construct the matrices. Fortunately, we 
have code that allows us to construct the matrices using Magma. These matrices are 
representations of our elements of G. Since matrices can be multiplied, multiplying, a 
matrix by itself until it produces the identity matrix determines the order of the matrix. 
If the order of this matrix multiplication matches the order of our permutation from G, 
we call this a faithful representation of that element. If this is not the case, we call this 
an unfaithful representation and it will no produce the faithful representation of G we 


hope for so we terminate the induction we have attempted and persue a new one. 
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Using the following code we will verify that the matrix representation of our 
generator x of G is faithful. We must also verify the other generators of G this work 
can be found in the Appendix. 


>T:=Transversal (G,H); 
>C:=CyclotomicField(2); 
>GG:=GL(4,C); 
>X:=[[C.1,0,0,0]: 1 in [1. 
>for i,j in [1..4] do X[i,j 
for i,j in [1..4] do if T[i 
>X[i,j]:=CH[2] ( T[i] *xx*T[J 
> Order (GG!X); 

2 


ee 

]:=0; end for; 

| een) in H then 
ile ; end if; end for; 


Since our generator from G = Zo? Ds is of order 2, we consider this faithful. The rest of 
our matrices are also faithful to the generators of G, but this of course may not always 
be the case. We must also check any products that take place in our presentation to 
make sure they produce a faithful representation. Our progenitor for G has the relation 
(ex f)? = Id(G). So naturally our matrix multiplication must have the same order and 


it does. 


From here we can use the matrix function in Magma, if we define how Magma 
should label the entries. Since we are working in cyclotomic field 2, we need an element 
in Z3 of order 2. Since 2? = 1 mod 3, 2 is the element we seek. So we label the mat 
function as follows: 


mat := function(n,p,D,k) 
for i,j in [1..k] do if T[i]*p*T[j3]°-1 in H then 


if CH[n] (T[i]*p*T[3]*-1) eq C.1 then D[i,j]:=2; end if; 
if CH[n] (T[i]*p*T[3]*-1) eq C.1°2 then D[i,3]:=1; end if; 
if CH[n] (T[i]*p*T[j]*-1) in {1,-1} then 

D[i,j]:=CH[n] (T[i]*p*T[j]*-1); 


Ena. if; end if; end for; 
return D; 
end function; 

Now, we take the set of all four by four invertible matrices over the field 
Z3, and using matrices, attempt to construct a group isomorphic to our G. Using the 
following code for each of generators, we determine suitable generators for our subgroup 


of GL(4,3): 
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>GG:=GL (4,3); 

>X:=[[0,0,0,0]: i in [1..4]]; 
>mat (2,xx,X,4); 

>XX:=GG!mat (2,xx,X,4); 
>Order (GG! XX); 


> XX; > YY; S778 > WW; > UU; 

[2 0 0 0] [2 0 0 0] [2 0 0 0] LO470r07] [0 1 0 0] 
[0 1 0 QO] [0 2 0 O] [0 2 0 0] [0 2 0 0] [0 0 1 0] 
[0 0 2 0] [0 0 1 0] [0 0 2 OQ] [0 0 2 0] [0 0 0 1] 
[0 0 0 2] [0 0 0 2] (0:0) 0. dL] [0 0 0 2] [1 0 0 QO] 
> VV; 

[2 0 0 0] 

[0 0 0 2] 

[0 0 2 OQ] 

[0 2 0 OQ] 

Now that we have our matrices labeled XX, YY , ... , VV, we can create a subgroup of 


GL(4,3) using the following command and check if it is isomorphic to our G. 


>HH:=sub<GG| XX, YY, ZZ, WW, UU, VV>; 
>#HH; 

128 

>IsIsomorphic (HH,G); 

true 


Since this is true, this subgroup of order 32 produced a faithful monomial representation 
of G. From here we can proceed to introduce a free product to our N and construct the 
progenitor. The following tables list faithful and unfaithful representations for all proper 


subgroups of G. 


Table 5.13: Faithful Representations for G = Z_ 2 D4 


Order of G | Generators of G Isomorphism of G 
S:=Sym(8) 
x=S!(1, 5); 
y:=s!(2, 6), 
HG = 128. | :2=SW3y 7); G = Z22 D4 (constructed by hand) 
w:=S!(4, 8), 
w:=S!(1)-2,.3;-4) (5; 6,°7;.8); 
vi=5l(1,-3) (5s 7) 
Order of H | Generators of H Faithful Representation 
x “¥ Z W 
2000] [2000] [2000] [1000] 
ae 0100] [0200] [0200] [0200] 
oe ie 0020] [0010] [0020] (0020) 
HH 32 500’ 6(3, 7)(4, 8), | 2.902) (0.002) (0001) foo) 
Ww =(3, 7), U Vv 
u:=(1, 5)(3, 7) 0100] [2000 
0010] (0002 
000 1} (0020 
1000} |0200 
x Y Z W 
1000] [0100] [1000] (0-100) 
ee aa 0100] [1000] [0100] [1000] 
0 ee 0002] (0010) [0003] [0010] 
a a 0030] [0001] [0020] [0001 
w:=(1, 3, 5, 7)(2, 4, 6, 8), U V 
u:=(1, 5)(2, 6)(3, 7)(4, 8) | [001 0) [1000] 
0003] [0-100] 
CH[11] up to CG[16] 0200] [000-1] 
100 0] [0 0 -1 0} 
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Order of H | Generators of H Faithful Representation 
x ng Z W 
1000] [0100] £1000] [0-100] 
aa 0-10 0] [100 0} [0 -10 0] [1000] 
rath, G7 000-1] [00-10] [0001] [00-10] 
#H = 82. | a 503, 9, 00-10] [000-1] [0010] [000-1] 
WwW =(1, 3)( - (5, 7)(6, 8), U Vv 
u:=(1, 5)(2, 6)(3, 7)(4, 8) | [0010] £1000) 
0001] [0-100] 
CH[2] up to CG{17] 1000] [0010] 
0100] [000-1] 
#H = 64 ) No Faithful Representations Exist 


Table 5.14: Induction of Character up to G & Zo? D4 


Subgroup|159 
up to G = 


y.2=1-11-11-11-1-11-11-11-111-11-1 
y¥.17 = 4-40-2002-220002-2000000 


Subgroup|163 


yx. 11 =1-1-11-111-1-IITI-II-I-II-111-l 
Lis a 4” root of unity 


up toG = v.16 =4-40200-2-22000-22000000 
Subgroup[167] | y.2=1-11-11-11-1-11-11-11-111-11-1 
up toG = ¥.17 = 4-40-2002-220002-2000000 


5.4.1 Determining Permutation Representation from a Faithful 


Representation Using Magma 3**: Z,) D, 
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When writing monomial progenitors it is important to obtain the most efficient 


presentation possible. Unfortunately, the presentation for Zz? D4 when calculated by 


hand has many unnecessary relations that can be eliminated if we use another version of 


the wreath product. We know that TransitiveGroup(8,35) = Z3? D4. Magma also has a 
command W:=WreathProduct(CyclicGroup(2),DihedralGroup(4)), which is isomorphic 


to both of these previously mentioned groups. Letting N be the group defined at the 


beginning of section 5.3, and W be the WreathProduct constructed through Magma the 


presentation comparison leaves little doubt which presentation is more efficient. 


> W:=WreathProduct (CyclicGroup (2) ,DihedralGroup (4)); 
> FPGroup (W) ; 
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Finitely presented group on 3 generators 


Relations 
$.1°4 = Id(S$) 
$.2°2 = Id($) 
o.3°R = Ta (8) 
($.1°-1 * $.2)72 = Id($) 
(Sal) # S23 4° S62) 72. = Tak(S) 
(S.1 * $.3 * $.17-1 * $.3)72 = Id($) 
Sed te G5 Be te SLASH 2. ee S 8 STO D> eS Be SD ee: S28 
* §.1°-1 = Id($) 
> N:=TransitiveGroup (8,35); 


> FPGroup (N); 
Finitely presented group on 6 generators 
Relations 


$.1°2 = Id(S) 

$.2°2 = Id(S) 

$.3°2 = Id(S) 

$.4°2 = Id(S) 

$.5°4 = Id(S) 

$.6°2 = Id(S$) 

($.1 * $.2)°2 = Id(S) 

($.1 * $.3)°2 = Id($) 

($.2 * $.3)°2 = Id($) 

($.1 * $.4)°2 = Id($) 

($.2 * $.4)°2 = Id(S) 

($.3 * $.4)°2 = Id($) 

S.1 * $.57-1 * $.4 *« $.5 = Id(S) 
Si 2o0e. Sib 1, &® Sal ae S45e = Tdi(s) 
§$.3 * $.5°-1 * $.2 *« $.5 = Id(S) 
S.1 * $.6 * $.3 * $.6 = Id(S) 
($.2 * $.6)*2 = Id(S$) 

($.4 * $.6)*2 = Id(S$) 

($.5°-1 * $.6)°2 = Id(S$) 


Due to the efficiency of the presentation generated by Magma we will produce our pro- 
genitor using G = W generated by x = (1,3,5,7)(2,4,6,8), y = (1, 7)(2, 8)(3, 5)(4, 6), 
and z = (1,2) with presentation < x, y, z|x*, y?, 27, (x1 *y)?, (at *z*y)?, (a+z*a-1* 


legeag 2x gxa?«xe* a? «za! >. This G has a different character table 


2 
which we must investigate to produce a faithful monomial representation. The same 
process that was conducted earlier in this section was reproduced here, which identified 


y.2 of H inducing y.19 of G and producing a faithful representation. Once we have this 
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faithful representation, we can produce the permutations that will be used. 


Using the following code we construct the faithful representation for our new 


G (W), and produce our monomial representation. 


S:=Sym(8); 

xxX:=S!(1, 3, 5, 7) (2, 4, 6, 8); 
yy:=S!(1, 7) (2, 8) (3, 5) (4, 6); 
ZZ S 1 (Clie 2) 
G:=sub<S|xXx, yy, Z2Z>; 
Sg:=Subgroups (G) ; 
CG:=CharacterTable(G); 

for x in [1..#Sg] do 

for> H:=Sg[x] ‘subgroup; 

for> CH:=CharacterTable(H); 

for> for y in [1..#CH] do 
for|for> for z in [15..20] do 
for|for|for> if #H eq 32 and Induction(CH[y],G) eq CG[z] 
for|for|for|if> then x,y,Z; 
for|for|for|if> end if; 
for|for|for> end for; 

for|for> end for; 

for> end for; 


> 
> 
> 
> 
> 
> 
> 
> 


H:=Sg[159] ‘subgroup; 
S:=Sym(8); 
xh:=S!(1, 5) (2, 6); 


( 
yh:=S!(5, 6) (7, 8); 
zh:=S! (7, 8); 
wh:=S!(1, 2) (3, 4) (5, 6) (7, 8); 
uh:=S! (1, 2) (7, 8); 
H:=sub<S|xh, yh, zh,wh,uh>; 
CH:=CharacterTable(H)j; 
IT:=Induction(CH[2],G); 
I eq CG[19]; 
rue 
T:=Transversal (G,H); 
C:=CyclotomicField (2); 
GG:=GL (4,3); 
Xe=([/[C.1,.070, 013-2 27 |[ 
for i,j in [1..4] do X[ 
YSS PEC. 1,.0 7-05 0) a a "eA iy 
[3 = 
[ 


For 2,5) am Pe 4], do -Y 
Z:=[[C.1,0,0,0]: i in 


VVVVVV VV FV VV VV VV VVOVONV 


fo 


> 
4 
> 
2 
> 
2 
> 


7 Vv 
ODOON CO ad ae > el 


Vv 


OO» 7@: 9 


u 
u 
u 
u 
u 
u 
u 
[ 
u 
u 
u 


ViVV Fh rm th HF fm Fh FH Fh Fh fh OV 


FOr. ay,]in -4] do Z[i, 
EOr ap) Eh PsA) dG! af 
c|if> X[i,3]:=CH[2]( T[i] 
for i, 9) am [1..4] do 2t T 
r|if> Y[i,j]:=CH[2]( T[i 
for i,j in [ +4] do 1£ T 
rlif> Z[i,3]:=CH[2]( Tf[i] 
Order (GG!X); 
Order (GG!Y); 
Order (GG!Z); 
GG!X; 

10 0] 

O 1 0] 

0 0 1] 

0 0 0] 
GG!Y; 

2 0 0] 

0 0 0] 

0 0 2] 

0 2 0] 
GG!Z; 

0 0 0] 

1 0 0] 

0-2. O)] 

0 0 2] 
mat := function(n,p,D,k) 
nction> for i,j in [1..k] 
ncetion|for|if> if CH[n] (T 
nction|for|if> then D[i,j]:= 
ncetion|for|if> if CH[n] (T[ 
netion|for|if> then D[i,j] 
ncetion|for|if> if CH[n] (T 
nction|for|if> then D[i,j] 
3]°-1); end if; 
nction|for|if> end if; en 
nction> return D; 

nction> end function; 
GG:=GL (4,3); 
X:=[[0,0,0,0]: i in [1..4 
mat (2,xx,X,4); 

PN Oiys: dg OG: UO! lee 


do if T[i]*p*T[j]*-1 


1] x*xprTl 
end 


[CE 


JA 


Aa 


ak # 
ate 


[i 


3] :=0; end for; 
T[i]*xx*T[j3]°-1l in H then 
*XX*T[J]°*-1); end if; e 
T[i]*yy*T[j]°-1 in H then 
Jxyy*T[j]~-1); end if; ¢ 
T[iJ*zz*T[j3]°-l in H then 
*zz*T[Jj]*-1); end if; en 


Alt ae =X© eel Care 

-1) eq C.1°2 
1) ie re Sas 
*xpx\ 
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nd for; 


nd for; 


d for; 


in H then 
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[i HO HOG: 2 O08 iy 
[. 205. 804. 0,. 7 
[ 1, 0, Of, 0: ] 
> XX:=GG!mat (2,xx,X,4); 
> Order (GG! XX); 
4 
> Y= [0,05.0, 0): 2 an [1.2.4] ); 
> mat (2,yy,Y,4); 
[00 SL. O40) Jy 
[dy Op Oy 0) hy 
[ 0, 0, 0, = J, 
[07.047 sts, 0°] 
> YY:=GG!mat (2,yy,Y,4); 
> Order (GG!YY); 
2 
> Z:=[[0,0,0,0]: i in [1..4]]; 
> mat (2,2zz,2,4); 
fray “Oy Oy. OF oy 
Op De Ope Oe 7 
[ 0, 0, -l, l, 
[ 0, 07. 0,- =410 J 
> Z2Z2:=GG!mat (2,22z,2,4); 
> Order (GG!ZZ); 
2 
> HH:=sub<GG|XX, YY, 22>; 
> #HH; 
128 


> IsIsomorphic (HH,G); 
true 


Now, that we have established a faith representation, we can use Magma, to 
determine the permutations that were constructed by hand in the previous two sections 


of this chapter. Using the following code produces the following permutations: 


perm := function(n, p, mat) 
C<u>:=CyclotomicField(p); 
Z:=Integers (); 

s:=[]; 

for iin [1l..n] do 

s[i]:=i; 
end for; 
z:=Matrix(C,1,n,s) «mat; 


w:=[]; 
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for iin [1l..n] do 

j3:=0; done:=0; 

repeat 

if z[1,iJ/u*7j in Z then 
if Z2!(z[1,i]/u7j) ge 0 then 

w[i]:=n*j+Z!(z[1,i]/u7j); 
done:=1; 

end if; end if; 

Jes gts 

until done eq 1 or j eq p; 
end for; 

for £ in) [l..(p=1)] do 

for a in [1..n] do 
wlatiten]:=(Z!w[a]+ixn-1) mod (pn) + 1; 
end for; end for; 
S:=Sym(n*p) ; 

w:=S!w; 

return wy; 

end function; 


> perm(4,2,GG!X); 
(1, 4, 3, 2)(5, 8, 7, 6) 
> perm(4,2,GG!Y); 
(1, 6) (2, 5) (3, 8) (4, 7) 
> perm(4,2,GG!Z); 
(1, 5) (3, 7) (4, 8) 


~~ nN 


From this point we proceed by stabilizing one of our t’s. Since we did not construct 
the permutation by hand we must calculate how Magma labeled t, and t? if we wish 
to stabilize t,. Luckily the function stores them in a rather simple manner. We know 
our progenitor will be 3*4 : W since we are working in cyclotomic field 3 with matrices 
of rank 4. This indicates we have 4 t’s to choose from of order 3. This is important 
since Magma labels ¢; as {1} and will label Ee immediately after it labels to,t3, and t4 
meaning Magma will label t? as {5}. The function always works in a similar way and 
counts ty, to, ..., tn, t?, t3, ...t?, labeling them respectively 1, 2, ..., n, n+1, n+2, ... 

n+n. This indicates that any permutation sending 1 to 5, is in our stabilizer of t;. We 
notice, the permutation for Z is the one that does this from above and now we can 


complete the monomial progenitor. 
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Using the permutations we obtained from the matrices and the stabilizers of 1 
and 5 in the following code we produce the words t; commutes with that will produce 


our infinite progenitor. 


> S:=Sym(8); 

xx:=S!(1, 4, 3, 2) (5, 
yy:=S!(1, 6) (2, 5) (3, 
zz:=S!(1, 5) (3, 7) (4, 
N:=Sub<S|xXxX, VY, ZZ>; 


VVV NV 


> NN<x, y, z>:=Group<x,y,Z|x°4,y°2,2°2, (x°-1*y) “2, (x°-l*zxy) 2, 
(X*Z*K 7-142) 72, K7-1LKZRKO-2KZKKO2KZEX 2*ZKX”>-1D>; 


eo! Bbabi bazen(Ny-(14 Shy 
Permutation group acting on a set of cardinality 8 
Order = 32 = 2°75 


(2, °8). (3; 7) (4; 6) 
(3, 7) (4, 8) 

(3, 7) 

(1; 5) (3, 744, 8) 


> Sch:=SchreierSystem (NN, sub<NN|Id(NN) >); 
> ArrayP:=[Id(N): i in [1..128]]; 
> for i in [2..128] do 


for> P:=[Id(N): 1 in [1..#Sch[i]]]; 

for> for j in [1..#Sch[i]] do 

for|for> if Eltseq(Sch[1i]) [Jj] eq 1 then P[j]:=xx; end if; 
for|for> if Eltseq(Sch[i])[j] eq -1 then P[j]:=xx*-1; end if; 
for|for> if Eltseq(Sch[1i])[j] eq 2 then P[j]:=yy; end if; 
for|for> if Eltseq(Sch[i]) [Jj] eq 3 then P[j]:=zz; end if; 
for|for> end for; 

for> PP:=Id(N); 


for> for k in [1..#P] do 
for|for> PP:=PP*P[k]; end for; 
for> ArrayP[1i]:=PP; 

for> end for; 


> for i in [1..128] do if ArrayP[i] eq N! (2, 4) (6, 8) then 
for|if> print Sch[i]; end if; end for; 

Kk Ze YY eK Zee Ke Ze KE SZ 

> for i in [1..128] do if ArrayP[1i] eq N! (3, 7) (4, 8) then 
for|if> print Sch[i]; end if; end for; 

Xx°2 * Ze X°-1l * Ze K-21 
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> for 1 in [1..128] do if ArrayP[i] eq N!(3, 7) then 
for|if> print Sch[i]; end if; end for; 

X°2Q2 * Z*K * Z*K KZ 

> for i in [1..128] do if ArrayP[1i] eq N! (1, 5) (3, 7) (4, 8) 
for|if> then print Sch[i]; end if; end for; 


Since the only entity in the stabilzer that sends 1 to 5 is z itself we have, 
t® = t? as one relation and the remaining three words commuting with t; as the follow- 
ing relations: (t,r*z*y*z*a*z*a%z), (t,a?*z*a71*z*a71), and (t,a?*z*0%2*2*2). 


Which produces our final infinite monomial progenitor presentation: 


1 2 aL 2 


G<a,y,z,tle*,y?, 27,09, (a7 b*y)?, (a7 ezy)?, (axzea +2) »& ZL Qe ZKE ZH 


wp xen + (teeeegestaezeeez), tac ecen + 


2G" +), (a eRe eeUED) CEES 

Finally, to insure that this process was done correctly and the progenitor is 
infact 3*4 : Z2?.D4 where the order of Z? D4 is 128, we can use Grindstaff’s Lemma to 
check the order of our progenitor calculated as 3+ x 128 = 10,368. This process will be 


carried out in the next chapter of this document with other examples as well. 


5.5 Character Table Construction 


This section will first demonstrate the ability to produce a character table for 
the abelian group G = 3x4 by hand. This process will be conducted using the guidelines 
defined in chapter 1 using definitions 1.6 thru 1.65 and theorems 1.85 thru 1.89. We 
will then move on to show that we can produce a character table for other groups that 


have been investigated in this study. 


5.5.1 Constructing a Character Table for 3 x 4 


To begin the process we consider the generators of Z3 and Z4, Z3 = < a > and 
Za = <b>. Now, before we begin the chart we must determine the conjugacy classes 


of our table. The following list is that is generated as follows: 


<a>x <b>= {e,a,a’,b, b, b°, ab, ab, ab”, a7b?, ab®, a2b?} 
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Now, Magma lists elements from the conjugacy class in increasing order fashion. This 


study will use the following order and labels for the character table we will construct: 


Table 5.15: Conjugacy Classes 3 x 4 with Representative 


# on Table | Conjugacy Class Permutation 

1 e Id(G) 

2 b (4,6) (5,7) 

3 a (1,2,3) 

4 a’ (1,3,2) 

5 b (4,5,6,7) 

6 b? (4,7,6,5) 

7 a*b? (1,3,2)(4,6) (5,7) 
8 ab? (1,2,3) (4,6) (5,7) 
9 ab (1,2,3)(4,5,6,7) 
10 a’b (1,3,2)(4,5,6,7) 
11 ab? (1,2,3)(4,7,6,5) 
12 ab? (1,3,2)(4,7,6,5) 


Now, we will set up the table so it can be filled in. We know the number of 
conjugacy classes is equal to the number of irreducible characters and will refer back 
to table 5.15 when we make calculations throughout this process. We construct the 


following empty character table: 
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Table 5.16: Initial Character Table for 3 x 4 
Classes |1)/2/3/)4/5/6]7)8] 9 | 10) 11} 12 
Size 1T)/1l}1}i};i}i1yi}i)} 1}1)i1)i1 
Order |1/2/3/3]4]4]6/)6) 12) 12] 12) 12 


X.1 
X.2 
X.3 
X.4 
X.5 
X.6 
X.7 
X.8 
X.9 
X.10 
X.11 
X.12 


We will begin systematically filling out the chart using our definitions from 
chapter 1. The reader should note that a w in the chart refers to a 3" root of unity, an 


I refers to a 4” root of unity, and a K refers to a 12” root of unity. 


Now, we begin by examining y.; by substituting w°® and J° into each conjugacy 


class above. Since, both entries w? = 1, and J° = 1 we have the following result: 
x1 evaluated at w°, 7° = 1,1,1,1,1,1,1,1,1,1,1,1 


This indicates our first row is all 1’s. Now, we match our 5.15 table with the 
corresponding number on table 5.16. We will evaluate the 2nd row as it is more inter- 
esting. We will substitute the relation w°i! into each conjugacy class. Since a is paired 
with w, wherever we see “a” in the conjugacy class a = w® = 1. Similarly, wherever we 


see a “b” in a conjugacy class we will substitute b = i! =i. 


The following calculations will represent this idea C represents column 1. 


C1x.2 represents column 1 of y.2: 


145 


Ch=e => Civ2=e=1 
OSh = Oye HO S=1 
C3=0 => Oxo =0=w? =1 
Oe SS Cie ea =a a1 
Ca) = Eve teat 
CH) SS. Cage HOP Sei 
Caer? = Oxi = C0 = YO? ==1 
Cg = ab? = Osyo = ab? = w GY? =-1 
Cy = ab = Cox2 =ab=wi =I 
Cio = a72b = Crox2=ab= (w°)?i =I 
Cy =ab®? = Cy. =a? = w (i)? =-I[ 
CoH=0b = CoxyssCb = WYO? =I 


Inserting these entries in their appropriate place from top to bottom, left to right in 
the table gives us y.1 and x.9 filled in. Similarly we will repeat this process for all other 


entries of the table. Now we consider a = w?, b = 7? for the y.3 entries. 


Cy=e = Civ3=e=1 

Gah Ss Oyeah Sat 
C3 =a => C3x¥3 =a=w" =1 
Q=0 => Cix3 =a? = (w= 1 
Cy =b = C5y3 =b= 7 = -1 


Car = CaS e SVP Sal 


Cr = ab? 
Cg = ab? 
Cy = ab 
Cio = ab 
Ca Sat 
Cig = ab? 


= C7x3 = 0°" = (w°)? (i)? —] 


= Csy3 = ab* = w(i?)? = 1 


= Cox3 =ab=wi? = -1 

— Cox.3 = a*b = (w®)?s? = -1 
= Cnxy3 = ab? = w? (i?) =—-1 
= Cryx3 = 07d? = (w°)?(?)? = -1 


If we considered a = w®, b = i? we would produce 


Nard, Lyiet, ee 1, al 


I,—I,I, I respectively. 


Next, if we consider a = w?,b = 1° we obtain y.5 as follows: 


Cl=e = Cixs=e= 
Ca) Oe =) Si = 
C3 =a = C3y5 =0=u*% =U" 
GQa=0 => Crys = 0 = (vw?) =0* = 
Cs =b => Csy5=b=72=1 
CaP SS Cage a St 
Cra 0 => Oryx = 8 = Ww’ (PY SH w* = 
Cg = ab? = Ca¥ 5 = 0b? =u? (°° =w 
Co =ab = Coys =ab= wi? = w? 
Cio =a2b = Crox5s =a’b= (w?)?%° =w=w 
Ci =o? = Cixs Hab Sw’? Pw? 
Cy =e = Coys =a’? = (w?)?(i°)3 =wi=w 
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For y.¢ we consider a = w’,b = i. and determine y as follows 
x x 


et We eas AAR ol ety: de cf 


Cixe=e=l 


C2x.6 = b? = (i)? =—1 


C3x6=a=wr=w? 


Cixg = 0? = (w 


oye w w 


C5xX6=b=i=1 
Cex.e =v? = (i)? =-I 


Crx.6 = a2b? = (w*)2(4)? = w4(-1) = —w 


Cex.6 = ab? = w?(i)? = w?(-1) = -w* 


Cox.¢ = ab = wi = wi 


Ciox.¢6 = a7b = (w*)?i = w* = wi 
Crux. = ab? = w*(i)? = —w"i 
Crox.6 = a7? = (w’)? (i)? = wt = —wi 
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Now, for the columns that resulted in a combination of w and i. Magma will 


label this as Z1 which as indicated at the bottom of the table resides in Zj2. So rather 


than force the user to calculate which field is being used Magma has made reading the 


table more simple. For the remainder of this table construction k = w 


which implies —k = —w?i and —k? = —wi. 


i, and k? = wi, 


We will demonstrate the process one more time for y.g (since y.7 will only 


contain w as a root) as the remainder of the chart is repetitive and then present the 


final result of our work by hand. Taking a = w? and b = i? we compute xg as: 
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Cly=e = Civg=e=l 
Gb => Cee SV Sy S=1 
C3=4a => C3y.3 =a=w2=w" 
Ot SS Ce SC Hw Se Sw 
Cb =| Oy 3=bS0 SF 
Cg = => Cv SF HCPrSsi 
Cr = a*b? —> Crx.g = a2b* = (w*)? (49)? = w4(-1) = —w 
Cg = ab? — Cex. = ab? = w?(i)? = w*(-1) = —w? 
Co = ab => Coxg = ad = wi? = —w*i = —k 
Cio = 7b = Croxs = 07) = (WP? = w* = —wi = —k 
Cy, =ab®> = Cuxs = ab® = w? (i?) =wi=k 
Cy. =D? = Crys = 0°? = (w?)? (a3) =wi=wi=k? 


after completing the rest of the calculations, the following character table is produced 
which can be compared to the character table of Z3 x Z4 in Magma, to see they are 


copies of one another. 


Table 5.17: Final Character Table for 3 x 4 


Classes | 1] 2 |] 3 4 5 | 6 ra 8 9 10 11 12 
w,i Size Ly) sd. | al 1 1} 1 I: 1 1 1 1 al 

Order | 1] 2] 38 3 4 | 4 6 6 12 12 12 12 
wel x4 Ei ae ek i ean ae ls 1 1 1 1 1 
wit X.2 i es ie il ie (luck (Fat SI I I I al 
we ae i ea fo shee) <2 1 -1 -1 af me 
we) xa |1]-1] 1 jays) al ee zl “I -I I I 
w2, X.5 1/1 | w? Ww Lid Ww w w Ww w w 
wit X.6 Teil ape Ww I/-I| -w | —w? k k -k —k? 
w, i? X.7 1) i) an? w |-l|-l Ww we | —w? | -w | —w? | -w 
wel x8 1[-1/w?/] w |-T/ I] -w | —w?/] -k | -k | k ke 
wi, i X.9 re A ee | w w w w w 
wee | aaa. |b ed) we] ae? DE ae? | ae? k | -k? 7 -k 
wii? X11 171} w f—w2)-1t]-1 | w? Ww -w [| —w2] -w | —w? 
wie X12 Tel Tow SPT [et aw) -k ke k 
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5.6 Lifting Character to H ~ 37:8 


Let G & PGL2(9) with subgroup H & 3? : 8. We know a faithful irreducible 
monomial representation of G exists from the subgroup H as ve induces up to Vai 
Now, we will investigate H and find a suitable normal subgroup, H’, or the derived 
group H. Considering the isomorphism type of H, we know the largest abelian subgroup 


of H is 3”. So we can determine the generators of H using the following commands: 


m(12); 

(ey. “Gy. Vg 28h. Sp. Zp Sy 2) (Aye Dy! 105-9)9 
(1, T1y 3, 8)(2, 127 6, 8) (4 LOT, 9)7 
(1, 3) (2, 6) (5, 11) (8, 12); 
( 
(J 
ub 


2; Oy 10) (4, 8, 12) (5, 11, 9)7 
1, 7, 3) (2, 6, 10) (5, 9, 11); 
<S|X,Y,Z,W,U>; 


=Sy 
! 
! 
! 
! 
! 


eS he Noe ops U2 
‘I 


dH:=DerivedGroup (H) ; 

dH; 

Permutation group dH acting on a set of cardinality 12 
Order = 9 = 3°2 

(1, 3, 7) (2, 6, 10) (4, 12, 8) 

(iy 33% Th). C27., Oy. 86) "Coe: ey 9) 


VVVV VV VV VV 


Now, H’ =< (1,3, 7)(2, 6, 10)(4, 12, 8), (1,3, 7)(2, 10, 6)(5, 11,9) > & 3? We want to find 
a character table for H/H’ ~ 8, but we first need to know what H/H"' is composed of. 


We know |Z = 2 = 8. We expect 8 transversals which create the set: 


H/H' = {H(e), H(1,6, 11,8, 3, 2,5, 12)(4, 7, 10,9), H(1, 11, 3, 5)(2, 12, 6, 8)(4, 10) 
(7,9), H(1,3)(2,6)(5, 11)(8, 12), H(1,8, 5,6, 3, 12, 11, 2)(4, 9, 10, 7), 

H (1,2, 11, 12,3,6,5,8)(4, 7, 10,9), H(1, 5,3, 11)(2, 8, 6, 12)(4, 10)(7, 9), 
H(1,12,5,2,3,8,11,6)(4,9, 10, 7)} 


We know H/H' ~ Zs. So we determine the conjugacy classes as follows: 


150 


Table 5.18: Conjugacy Classes H’ & 8 


# on Table | Conjugacy Class Permutation 

1 e Id(H) 

2 xt 2 3)(2, 6)(5, da 12) 

3 ue (1, 11, 3, 5)(2, 12, 6, 8)(4, 10)(7, 9) 
4 x ame. uke 8, 6, eee 10)(7, 9) 
5 r (1-6; 11, 8, 3/955 ADA 7, 10,9) 
6 x (1, 8)536,.3, 12; 11,°9)(4, 9.10; 7) 
Vi x (1, 2, 11, 12, 3, 6, 5, 8)(4, 7, 10, 9) 
8 ae (1D, 5.0, Saks 1 O\tt. O10 7) 


Now, H/H’ =< H(1,6,11,8,3,2,5,12)(4,7,10,9) > if we consider Magma’s 
labeling of the character table is, it indicates a fourth root of unity and eighth root of 
unity. When proceeding from here we will need to substitute a value for I. The following 


calculation will help us determine this. 


n= cos + isin => n? = (cos + isin)? = cos?() + 2isin=cost + sin? (=) 
aL 5p 1 Ls ae 
= 54 2i( 44) p= ip =a ae) 


It follows that anywhere in our chart where we have indicated n? shall be replaced with 
I. Similarly, (n?)? = n* = i? = —-1, and (n?)? = n® = i? = —I. We compute the entries 
of our character table for H/H’ as: 
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“Zs 


Table 5.19: Initial Character Table of H/H’ 


1 
1 
1 


Classes 


Size 


Order 


n 


Which simplifies to: 


—I we also note, 


Of 


—1, and n 


1 
1 


Classes 


Size 
Order 


n 


And substituting n° 


that (—1) *n! = n°, and (-1) *n? =n" so we will replace n® = —n and n’ = —n° and 


construct our final H/H’ character table as: 
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Table 5.20: Character Table of H/H' = Zg 


Classes | e | x4 | 2? | a® | x x fe at 
Size 1} 1], 1/1 1 1 1 1 

Order | 1] 2 | 4 | 4 8 8 8 8 
ee eae tel ea ok ee 
x 1|-1) I] -I) n n> | —n | —n3 
x’ 1} 1 | -1 4 -1 I -I I -I 
x pai) ere aes ane a ae) ae 
Xs 1} 1).1)] 1 -1 -1 -1 -1 
xX% Pat) Dt a. SF il an n 
xy 1} 1 |-1]-1)] -I I -I I 
Xs 1/-1]-I] I |—n?] -n n? n 


We have established a character table for H/H’ and can now lift the table’s 


character to H. Before we begin it is important to determine the conjugacy classes of 


H. The following set are the conjugacy classes of H: 


H = {e,2+,w, 27, 2,2, 2°, 2°, 2} 


With this in mind we construct our character table with nine rows and columns since 


there are nine conjugacy classes in H. 


The preliminary table looks as follows: 


Table 5.21: Preliminary H ~ 3? : 8 Character Table 


Classes 
Size 
Order 


e 
1 
1 


ot 


9 
2 


Ww 
8 
3 


a 


9 
4 


7 


9 
4 


x 
9 
8 


2 


9 
8 


7 


9 
8 


gt 


9 
8 


X.1 


X.2 


X.3 


X.4 


X.5 


X.6 


X.7 


X.8 


X.9 
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Now, using our definition of lifting character, we begin lifting each irreducible 


character from H/H’ to H. We note, x(h) = y°(h) for h € H. 


x1 calculations 


x.1(h) = x%,(h) = 1 Vh € H/H 


x.2 calculations 


x.2(e) = x%(e) = 1 
x.2(2*) = x4(07) = —1 
X.2(w) = x2(H") =1 
x.2(2") = xb(a?) =I 
x.2(x°) = x4(#°) = —I 
X.2(2° * w) = x$(z) =n 
X.2(2°) = xh(2*) =n? 
x.2(@?) = x%(2°) = —n 
X.2(2") = xo(2") = —n? 


x.3(e) = x3(e) =1 
x.3(2*) = x3(z*) = 
x.3(w) = x%3(H’) =1 
x.3(2*) = x%3(2”) = -1 
x.3(#°) = x%(2°) = -1 
x.3(a° *w) = x(x) =I 
x.3(a*) = x(a) = —I 
x.3(@") = x3(a*) =I 
x.3(@") = x%(a") = —I 
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x.4 calculations 


i I I a RR lt 


im 
~ il 
io 
Y ae e~ 
eB & 
et (| 
of F soiee. 3 
| = 
Freee. 5 * 
oO wD 
8 8 
= ye 
< & 


x5 calculations 


WY WH WY WY Ye arr ar hl  errl 


ces 
et? a? 
< & 
toll 
a. &- 
8 = 
m2 
< & 


x.6 calculations 


WS =a yea we wy wa 


i 
AY 
; ol 
1s 
Ay ec 
eB 
ee Il 
of nn, 
1 8 
Foe. 5 * 
oO wd 
8 8 
© © 
x XX 
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x.7 calculations 


1 


x°,(e) 


x.7(e) 
x.7(x*) 


x.7(w) 


x%(2") =1 


x°,(H’) =1 


x.7(x?) 
x.7(a®) 


cat 


x 


"7 


X.7(2? * wW) 


x. calculations 


— 
iy « #4 
| Tl 
oS ae 
~ N 
ae 
0% 
* pe 
yi 
fn, he a 
3 8 
~~ ~" 
60 
<x x 


X%(x) = —n3 


X.3(x° * w) 


9 
[iy 5g" 2 age 
ee || 
ae a ae 
1p 
oot Se 
eX 0% 0% 
<x x 
|| 
8 8 8 
~ ~ ~~ 


This produces the following character table of H. 
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Table 5.22: Lifted H & 3? : 8 Character Table 
Classes | e | 24 | w | x? | 2® x x x? x! 
Size 1;/9/8)9) 9 9 9 9 9 
Order |1)/ 2] 3 | 4 | 4 8 8 8 8 
XA 1}; 1)1])1 41 1 1 1 1 
5.0 Se a Pee | Aa oa eee a? 
X.3 1} 1) 1] -14] -1 I -I I -I 
X.4 1} -1}) 1 | -I | I n3 n a7? | ni 
X.5 1}; 1);1] 171 =]; -1 -1 -1 
X.6 1} -1] 1 oF ene 9a n 
X.7 1} 1) 1] -1]-1) -I I -I I 
X.8 1 Sle eb cb i) aes | ek nd n 
x9 | a} Bi | B2| Bs} Pa} Ps | Be | Br | Bs 


Finally we can produce y.9 using theorem 1.87 which states that the sum of 
squares of degrees of the distinct irreducible characters of G is equal to |G| at the degree 
of character x(1). What this allows us to do is take the first column of our character 
table and construct the equation: (y.1(1))? + (v.2(1))? +... + (v.9(1))? = |G]. This 
implies 1? + 1? +... 4+. 12+ a? = 72 Now, 8+a2=72 —> a= 8,-8 but a cannot be 
negative so a = 8. Now that we have the full first column we can use it to determine 


the remaining entries in y.9 using definition 1.61: 


Now we construct the inner product from x4 ) to x), where x4 ) is column 1 and y? 


is all columns for 2 <j <9. 


k 
Lxexs) = 1*1+1*—-—141*1+1*—14+1*1+1*—1+1*1+1*—-1+8*«},; =0 


sae 0 B, =0 
oe x8 tied tat 4 Llel+l«1l+1l*1+1*14+1*«14+1%*14+8% bo =0 


yO yO a deT4 le He 141s S7 4141} 141+ 1414 84 By = 0 


— > 1-{-1+4%44+1-i-1+14 883 =0 883 =0 Bs =0 


k See 
32 XY y©) = 1474 lx—[+1*—1+1*J+1*141*—-—I41*—-141%*/I+8« 84, =0 
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=> 14+71-1-141+i1-1-14+84,=0 834 =0 64 =0 


k _ _ —— = __ —— ae 
as x9) O = l*14+1l*«n+1l*J+1*n3+1*—141*—n+1*—I41*—n3+8 8s =0 


= 1l—-n-i-n-1ltnt+itini+86; =0 835 = 0 Bs =0 


k — = cs = 
> xO = lxI4+1l*en3+1+*—JI4+1*7+1*—141+—n34+1*J4+1*—n+8+ Bg = 0 


= 1—-n?+i-n—-14n3-i+n4+866 =0 886 = 0 Bg =0 


k Tey. = —__ — == — = 
> x9) = 1l*1l4+1*—n4+1*I4+1*—n3+1*—14147+1*—-—I41*n3+8+ 87 = 0 


— l+n-i+n®-1-—n+i-n?4+86,=0 887 =0 Bb; =0 


x9) xO) = lxl4+1«—n341%—I4+1am+1*—I4+1«n3+1%I+1*«7+8% 8g = 0 
1 
= 14+ne+itn-1l—n? —i-n+8f. =0 86g = 0 Bg =0 


k —_— 


a 


Finally, substituting the values into the Lifted chart from before we produce 


the complete character table of H: 


Table 5.23: Complete Character Table H & 3? : 8 


Classes | e | «* | w | a? | x® x x? x? x! 
Size 1|}/9;8}]9 4} 9 9 9 9 9 
Order |1/ 2/3) 4] 4 8 8 8 8 
X.1 1} 1)1)141 1 1 1 1 
X.2 1} -1) 1 I | -I n n? -n —n3 
X.3 1} 1) 1) -1 4] -1 I -I I -I 
X.4 1} -1] 1 | -I n3 n —n? | -n 
X.5 1}; 1}1])141 -1 -1 -1 -1 
X.6 1 0 ee | || a8 n n? 
X.7 1} 1 | 1 | -1 4-1 -I I -I I 
X.8 1) a) Sn) Sn a n? n 
X.9 8} 0 ]-1)| 0 0 0 0 0 


5.7 Monomial Progenitor Results 


A constant theme of this document has been that we construct an infinite pro- 


genitor, factor the progenitor by relations, and produce finite images of known groups. 
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While any given progenitor is not guaranteed to produce interesting results, we do this 
with hopes of discovering various simple groups, especially sporadic ones. The following 


subsections describe the results of such progenitors. 


5.7.1 17*1°:,, PGL2(9) Results 


This progenitor only produced the homomorphic image PGL2(9) which can 
be obtained via the Grindstaff lemma relations. This was the only finding for this 


progenitor. 


5.7.2 13% :m ((22 x 3) : 2) Results 


The progenitor 13*? :,, ((2? x 3) : 2) factored by first order relations only 
obtained a single finite homomorphic image isomorphic to 13? : ((2 x 13) : (2 x 3)) of 
order 26,364. 

G<x,y,zZ,t>:=Group<x,y,z,t|x°4, y°2, 2°3, t°13, (x*-lx*y)°2, 


(2) (yee Hlayegy, Ee Ro Hlets 12 (EZ Hate 38, (er 2 ae Oe Det) Le, 
(x * y * zZ°-l*xt) 6, (y * z*t) 76>; 


This is appeared to be the most efficient presentation of that group. 


5.7.3 3*4 2, (Z2’.D,) Results 


The progenitor 3** :, (Zz ?D4) factored by first order relations: 


G <2,y,2z,t >:= Group < x,y, z,t|x*, y*, 27,08, (a7! « y)?, (v1 * z * yy)’, 
(cnt zeacilez) a laezaec 2ezeatazactazec (toe ze ye ZL Z*L* 2), 
(t,a2%z%xa7lxzea7t), (t,a2*zeaxzeaez),t? =t?, (((x*z)*) *t)%, (((a*z*x)”) «t)?, 
((a?) « t)°, (27) * t)%, (zeal * za) «t)®, (ay) «tf, (a2 «ze 0% z* x * 2) *t)9, 
((a2*zeaxy*z)*t)”, ((y) «ty, (a2 ey*z*ax) ty, (((a7) *z)?) «t)®, (ate zy) «ty, 
((a2*z*ea% zy z)*t)™, ((z* x7) xt)”, (zea tezey) ty, (zea tezearey) ety, 
((a) # £)%, (a2 wy # 2) ¥t)", (a1 + 2) #2) 


Note: Only q and s will be shown in the presentation table as they were the only factors 


which produced finite images. 
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Table 5.24: Finite Presentations of 3*4 :,, Z2?D4 


| q | s | Order of G Name of G | 
| 9 10] 725,760 2x So | 
| 1010] 57,600 (2 x A?) : Da | 
| 0 [9 | 48,522,240 | (27)*PGL4(3) | 


5.8 Conclusion 


The goals of this chapter were to show that an irreducible character can be 
induced up to G from the subgroup H. If we can produce a faithful monomial repre- 
sentation of our control group N, we can create a monomial progenitor that will be 
expressed on a free product that corresponds with the degree and field of the matrix 
that representation is expressed in. While this process can be completed the results 


vary just as they would with a progenitor calculated on 2*”. 


Unfortunately no sporadic groups were found in these progenitors run in the 
background. That is the ultimate discovery and reason for developing this process. 
While some interesting groups were found on these progenitors, there is more to be 
desired. Progenitors that are too large, 17*!° :;, PGL2(9) for instance, appear to stress 
test Magma. We are hopeful that future developments in the servers will allow research 


of even higher order groups. 
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Appendix A 


MAGMA Code for DCE of 
PGL4(11) over N = D9 


S:=Sym(6); 

X:=S!(1, 2) (3, 5); 
¥2=S' (1, 3) 7d) 
Z 
N 


oO 
~ 

Oo 
~ 


2:=S! (1, 4, 2) (3, 
:=Ssub<S|X,Y,2Z>; 


£,N1,k:=CosetAction(N, sub<N|Id(N)>); 
G<x,y,Z,t>:=Group<x,y,Z,t|x°2,y°2,2°3,y° X=V,Z° X=Z°2,Z° y=Z, 


£°2; (0, Rez) (Vet) Sy (2° 1s EY 3, 
X*KVRKTRKRYACAK VRE KY*CeXeT xyxtxyn Z —Lxetxyx*zxtx VuxZxt>; 


£,G1,k:=CosetAction (G, sub<G|x,y,zZ>); 
CompositionFactors (Gl); 


#DoubleCosets (G, sub<G|x,y, z>, Sub<G|x,y,Z>); 


IN:=sub<Gl1|f(x),f(y),£(z)>; 


ts. $= \[. Tai(Gl p>? atm [le ww D2d) 15 
ts[1l]:=f(t); 

ts[2]:=f(t* (x)); 

ts[3]:=f(t* (y)); 

ts[4]:=f(t* (z)); 

ts[S]:=f(t* (y*x)); 

ts[6]:=f£(t* (y*z)); 


HH:=sub<G|x,y,Z>; 


Index (G, HH) ; 
#G/#IN; /x 110 x/ 


prodim := function(pt, Q, 
vi := pt; 
for i in I do 
wee Ee (ODay 
end for; 


return v; 
end function; 


est := [null : i in [1 
where null is [Integers () 
for i := 1 to 6 do 

cst[prodim(l1, ts, 
end for; 
m:=0; 


i) 


Index (G, sub<G|x,y,z>)]] 


1; 


[i])] 


for 1. an [1l..110)] do. 1f est [1] 


end if; end for; m; 


Orbits (N); 


N1:=Stabiliser(N,1); 
SSS:={[1]}; SSS:=SSS°N; 
# (SSS); 
Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 
for n in IN do 

if ts[1] eq 

n*xts [Rep (Seqq[i]) [1] ] 
then print Rep(Seqq[i]); 
end if; end for; end for; 
Nis:=N1; 


Tl:=Transversal (N,N1s); 
for i in [1..#T1] do 
ss:=[1]°T1[il; 
cst[prodim(l1, ts, ss)] := 
end for; 


SS; 


then m:=m+1; 
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m:=0; for iin [1..110] do if cst[i] ne [] 
then m:=m+l; end if; end for; Mm; 


Orbits (Nl1s); 


N13:=Stabiliser(N1,3); 
SSS:={[1,3]}; SSS:=SSS°N; 
# (SSS); 
Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 
for nm in IN do 

if ts[l]*ts[3] eg 

nxts [Rep (Seqq[i]) [1] ]*ts[Rep(Seqq[i]) [2]] 
then print Rep(Seqq[i]); 
end if; end for; end for; 
N13s:=N13; 


T13:=Transversal(N,N13s); 

for i in [1..#T13] do 

ss:=[1,3]°T13[i]; 

cst[prodim(l1, ts, ss)] := ss; 

end for; 

m:=0; for iin [1..110] do if cst[i] ne [] 
then m:=m+l; end if; end for; Mm; 


Orbits (N13s); 


N15:=Stabiliser(N1,5); 
SSS:={[1,5]}; SSS:=SSS°N; 
# (SSS); 
Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 
for n in IN do 

if ts[l]*ts[5] eg 

nxts [Rep (Seqq[i]) [1] ]*ts[Rep(Seqq[i]) [2]] 
then print Rep(Seqq[i]); 
end if; end for; end for; 
N15s:=N15; 


T15:=Transversal (N,N15s); 
for i in [1..#T15] do 
ss:=[1,5]°T15[i]; 

cst [prodim(1 
end for; 
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m:=0; for i in [1..110] do if cst[i] ne [] 
then m:=m+l; end if; end for; Mm; 


Orbits (N15s); 


N132:=Stabiliser(N13,2); 
SSS:={[1,3,2]}; SSS:=SSS°N; 
# (SSS) ; 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for nm in IN do 

if ts[l]*ts[3]«*ts[2] eq 
n«ts [Rep (Seqq[i]) [1] 
then print Rep(Seqq[i]); 
end if; end for; end for; 
N132s:=N132; 


for g in N do if 1°g eq 1 and 3*g eq 3 and 2°g eq 4 
then N132s:=sub<N|N132s,g>; end if; end for; 


#N132s; 


T132:=Transversal (N,N132s); 
for i in [1..#T132] do 
ss:=[1,3,2]"TL32 [2]; 


cst[prodim(l1, ts, ss)] := ss; 
end for; 
m:=0; for iin [1..110] do if cst[i] ne [] 


then m:=m+l; end if; end for; Mm; 


Orbits (N132s); 


N151:=Stabiliser(N15,1); 
SSS:={[1,5,1]}; SSS:=SSS°N; 
# (SSS) ; 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in IN do 

if ts[l]«ts[5]«ts[] 
n«ts [Rep (Seqq[i]) [1 
then print Rep(Seqq[i]); 
end if; end for; end for; 


eq 


L] 
L] 


N151s:=N151; 


]«ts [Rep (Seqq[i]) [2] ]*ts [Rep (Seqq[i]) [3]] 


]«ts [Rep (Seqq[i]) [2]]*ts [Rep (Seqq[i]) [3]] 
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T151:=Transversal (N,N151s); 
flor i in [L.2¢TISL) «do 
ss:=[1,5,1]°T151[i]; 


cst[prodim(l1, ts, ss)] := ss; 
end for; 
m:=0; for iin [1..110] do if cst[i] ne 


then m:=m+l; end if; end for; mM; 
Orbits (N151s); 


N152:=Stabiliser(N15,2); 
SSS:={[1,5,2]}; SSS:=SSS°N; 
# (SSS) ; 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in IN do 

if ts[l]*ts[5]*ts[2] eg 
n*xts [Rep (Seqq[i]) [1] 
then print Rep(Seqq[i]); 
end if; end for; end for; 
N152s:=N152; 


for g in N do if 1°g eq 6 and 5°g eq 2 and 2°g eq 5 
then N152s:=sub<N|N152s,g>; end if; end for; 


#N152s; 


T152:=Transversal (N,N152s); 
for i in [1..#T152] do 
ss:=[1,5,2]°T152[i]; 


cst[prodim(l1, ts, ss)] := ss; 
end for; 
m:=0; for iin [1..110] do if cst[i] ne 


then m:=m+l; end if; end for; Mm; 


Orbits (N152s); 


N154:=Stabiliser(N15,4); 
SSS:={[1,5,4]}; SSS:=SSS°N; 
# (SSS) ; 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in IN do 

if ts[l]*ts[5]*ts[4] eg 


n«ts [Rep (Seqq[i]) [1] ]*ts[Rep (Seqq[i]) [2] ]*ts[Rep (Seqq[i]) [3]] 


]«ts [Rep (Seqq[i]) [2]]*ts [Rep (Seqq[i]) [3]] 
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then print Rep(Seqq[i]); 
end if; end for; end for; 
N154s:=N154; 


T154:=Transversal (N,N154s); 
for i in [1..#T154] do 
ss:=[1,5,4]°T154[i]; 


cst[prodim(l, ts, ss)] := ss; 
end for; 
m:=0; for iin [1..110] do if cst[i] 


then m:=m+l; end if; end for; Mm; 
Orbits (N154s); 


N1323:=Stabiliser (N132,3); 
SSS:={[1,3,2,3]}; SSS:=SSS°N; 
# (SSS); 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in IN do 

if ts[l]*ts[3]«ts[2 
n*xts [Rep (Seqq[i]) [1 
xts [Rep (Seqq[i]) [4] 
then print Rep(Seqq[i]); 
end if; end for; end for; 
N1323s:=N1323; 


xts[3] eq 


for g in N do if 1°g eq 1 and 3°g eq 3 and 2°g eq 4 


and 3°g eq 3 


then N1323s:=sub<N|N1323s,g>; end if; 


#N1323s; 


T1323:=Transversal (N,N1323s); 
for iin [1..#T1323] do 

$S8i= [273,727 3) T1323 (2); 
cst[prodim(l1, ts, ss)] := ss; 
end for; 


m:=0; for iin [1..110] do if cst[i] 


then m:=m+l; end if; end for; Mm; 


Orbits (N1323s); 


N1325:=Stabiliser(N132,5); 
SSS:={[1,3,2,5]}; SSS:=SSS°N; 


] 
]] «ts [Rep (Seqq[i]) [2]]*ts[Rep (Seqq[i]) [3]] 
] 


end for; 
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# (SSS) ; 
Seqq:=Setseq(SSS) ; 
for i in [1..#SSS] do 
for n in IN do 

if ts[l]*«ts[3]«ts[2 
n«xts[Rep(Seqq[i]) [1 
xts [Rep (Seqq[i]) [4] 
then print Rep(Seqq[i]); 
end if; end for; end for; 
N1325s:=N1325; 


]xts[5] eq 
]] «ts [Rep (Seqq[i]) [2] ]*ts[Rep (Seqq[i]) [3]] 
] 


T1325:=Transversal (N,N1325s); 

for iin [1..#T1325] do 

Ss [17372 ,90] TTES25 (217 

cst[prodim(l1, ts, ss)] := ss; 

end for; 

m:=0; for i in [1..110] do if cst[i] ne [] 
then m:=m+l; end if; end for; Mm; 


Orbits (N1325s); 


N1513:=Stabiliser(N151,3); 
SSS:={[1,5,1,3]}; SSS:=SSS°N; 
# (SSS) ; 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in IN do 

if ts[l]*ts[5]«*ts[1l]xts[3] eg 

n*xts [Rep (Seqq[i]) [1] ]*«ts[Rep (Seqq[i]) [2] ]*ts[Rep (Seqq[i]) [3]] 
*ts [Rep (Seqq[i]) [4] ] 

then print Rep(Seqq[i]); 

end if; end for; end for; 

N1513s:=N1513; 


for g in N do if 1l°g eq 3 and 5°g eq 4 and 1°g eq 3 
and 3°g eq 1 
then N1513s:=sub<N|N1513s,g>; end if; end for; 
#N1513s; 


T1513:=Transversal (N,N1513s); 
for i in [1..#T1513] do 
ssi1=[1,.5,1,)3]7PIS13\[4) 3 

cst [prodim(l1, ts, ss)] := ss; 
end for; 


m:=0; for iin [1..110] do if cst[i] ne [] 
then m:=m+l; end if; 


Orbits (N1513s); 


end for; mm; 


N1515:=Stabiliser(N151,5); 
SSS:={[1,5,1,5]}; SSS:=SSS°N; 


# (SSS); 
Seqq:=Setseq(SSS) ; 
for i in [1..#SSS] 
for n in IN do 

if ts[l]«ts[5]«ts[] 
n«xts [Rep (Seqq[i]) [ 


L] 
1] 
] 


do 


xts[Rep(Seqq[i]) [4 


xts[5] eq 
]«ts [Rep (Seqq[i]) [2]]*ts [Rep (Seqq[i]) [3]] 


then print Rep(Seqq[i]); 
end if; end for; end for; 


N1515s:=N1515; 


for g in N do if 1°g eq 3 and 5°g eq 4 and 1°g eq 3 


and 5°g eq 4 


then N1515s:=sub<N|N1515s,g>; end if; end for; 


#N1515s; 


T1515:=Transversal (N,N1515s); 
for iin [1..#T1515] 
§st=[1,.5, 175] “Tlslo Lal; 

cst[prodim(l, ts, ss)] := ss; 


end for; 


do 


ms=0;). for “aan Fl .LbO) “dowact sest[a]ae- LE] 
then m:=m+l; end if; 


Orbits (N1515s); 


end for; mm; 


N1516:=Stabiliser(N151,6); 
SSS:={[1,5,1,6]}; SSS:=SSS°N; 


# (SSS); 
Seqq:=Setseq(SSS) ; 
for i in [1..#SSS] 
for n in IN do 

if ts[l]«ts[5]«ts[] 
n«xts [Rep (Seqq[i]) [ 


L] 
1] 
] 


do 


xts [Rep (Seqq[i]) [4 


xts[6] eq 
]«ts [Rep (Seqq[i]) [2]]*ts [Rep (Seqq[i]) [3]] 


then print Rep(Seqq[i]); 
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end if; end for; end for; 
N1516s:=N1516; 


T1516:=Transversal (N,N1516s); 
for i in [1..#T1516] do 
ss:=[1,5,1,6]°T1516[i]; 
cst[prodim(l, ts, ss)] := ss; 
end for; 


m:=0; for iin [1..110] do if cst[i] 


then m:=m+l; end if; end for; Mm; 


Orbits (N1516s); 


N1543:=Stabiliser (N154,3); 
SSS:={[1,5,4,3]}; SSS:=SSS°N; 
# (SSS); 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in IN do 

if ts[l]«ts[5]«ts[ 
nxts [Rep (Seqq[i]) [ 
xts [Rep (Seqq[i]) [4] 
then print Rep(Seqq[i]); 
end if; end for; end for; 
N1543s:=N1543; 


4)xts[3] eg 
1 


for g in N do if 1°g eq 6 and 5°g eg 2 and 4°g eq 3 


and 3°g eq 4 


then N1543s:=sub<N|N1543s,g>; end if; 


#N1543s; 


T1543:=Transversal (N,N1543s); 
for i in [1..#T1543] do 
ss:=[1,5,4,3]°T1543[i]; 

cst [prodim(l, ts, ss)] := ss; 
end for; 


m:=0; for iin [1..110] do if cst[i] 


then m:=m+l; end if; end for; m; 
Orbits (N1543s); 
N13231:=Stabiliser(N1323,1); 


SSS:={[1,3,2,3,1]}; SSS:=SSS°N; 
# (SSS); 


ne [] 


] 
]] «ts [Rep (Seqq[i]) [2] ]*ts[Rep (Seqq[i]) [3]] 
] 


end for; 
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Seqq:=Setseq(SSS) ; 
for i in [1..#SSS] do 
for n in IN do 

if ts[l]*«ts[3]«ts[2]* 

n*ts [Rep (Seqq[i]) [1] ]*ts[Rep (Seqq[i]) [ 
xts [Rep (Seqq[i]) [4] ]*ts[Rep(Seqq[i]) [5 
then print Rep(Seqq[i]); 

end if; end for; end for; 
N13231s:=N13231; 


ts[3]*ts[1] eq 


2]]*ts[Rep(Seqq[i]) [3]] 
}] 


for g in N do if 1l°g eq 2 and 3°g eq 5 and 2°g eq 1 
then N13231s:=sub<N|N13231s,g>; end if; end for; 
for g in N do if 1°g eq 3 and 3°g eq 1 and 2°g eq 5 
then N13231s:=sub<N|N13231s,g>; end if; end for; 
for g in N do if 1l°g eq 4 and 3*g eq 6 and 2°g eq 1 
then N13231s:=sub<N|N13231s,g>; end if; end for; 
for g in N do if 1l°g eq 5 and 3°g eq 2 and 2°g eq 3 
then N13231s:=sub<N|N13231s,g>; end if; end for; 
for g in N do if 1°g eq 1 and 3*g eq 3 and 2°g eq 4 
then N13231s:=sub<N|N13231s,g>; end if; end for; 
for g in N do if 1l°g eq 6 and 3°g eg 4 and 2°g eq 3 
then N13231s:=sub<N|N13231s,g>; end if; end for; 
for g in N do if 1l°g eq 4 and 3*g eq 6 and 2°g eq 2 
then N13231s:=sub<N|N13231s,g>; end if; end for; 
for g in N do if 1l°g eq 2 and 3°g eq 5 and 2°g eq 4 
then N13231s:=sub<N|N13231s,g>; end if; end for; 
for g in N do if 1l°g eq 3 and 3°g eq 1 and 2°g eq 6 
then N13231s:=sub<N|N13231s,g>; end if; end for; 
for g in N do if 1l°g eq 6 and 3°g eq 4 and 2°g eq 5 
then N13231s:=sub<N|N13231s,g>; end if; end for; 
for g in N do if 1°g eq 5 and 3°g eq 2 and 2°g eq 6 
then N13231s:=sub<N|N13231s,g>; end if; end for; 
#N13231s; 


T13231:=Transversal (N,N13231s); 

for i in [1..#T13231] do 
ss:=[1,3,2,3,1]°T13231 [i]; 

cst[prodim(l1, ts, ss)] := ss; 

end for; 

m:=0; for iin [1..110] do if cst[i] ne [] 
then m:=m+l; end if; end for; Mm; 


Orbits (N13231s); 
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Appendix B 


MAGMA Code Maximal DCE 


/* =====Determining suitable Maximal Subgroup of SM_{12}$ ==== 
x / 

S:=Sym(12); 

X:=S!(1, 2) (3, 5) (4, 6) (7, 9) (8, 10) (11, 12); 

Y:=S!(1, 3) (2, 5) (4, 7) (6, 9) (8, 11) (10, 12); 

Z:=S!(1, 4, 8) (2, 6, 10) (3, 7, 11) (5, 9, 12); 

W:=S! (1, 2) (3, 5) (4, 7) (6, 9) (8, 12) (10, 11); 

Vi=S!(1, 5) (2, 3) (4, 6) (7, 9) (8, 1 10; 12) 

N:=sub<S|X,Y,2Z,W,V>; 

£,N1,k:=CosetAction(N, sub<N|Id(N)>); 


G<x,y,Z,W,v,t>:=Group<x, y,Z,w,v,t|x°2,y 2,2 ° 3, 
w°2,V°2,Y° X=V,Z° X=Z,Z° Y=Z,W X=W,W° yY=W, W Z=V,V° X=V,Vy=v, 
VO Z=wtkv,V w=v,t°2, (t,x*yx*w), (t,y*v), (x*t) 73, (z*t) 75>; 


£,G1,k:=CosetAction (G, sub<G|x,y,Z,W,V>) ; 
CompositionFactors (Gl); 


#DoubleCosets (G, Ssub<G|x,y, Z,W,V>, SUD<G|X,Y,Z,W,V>) ; 
M:=MaximalSubgroups (G1); 


/x Magma stores this differently each time. 
Will change CC below «/ 
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#M; 
for iin [1..9] do #M[i]* subgroup; end for; 


/x We check 480, 144 or 384 they are divisible by 48 (#N) x/ 


/* C:=Conjugates (G1,M[2] ‘subgroup) ; 
Didn’t produce anything with for i in [1..#CC] below x/ 


work x/ 
work x/ 


/* C:=Conjugates(G1,M[6] ‘subgroup); Didn’t 
/* C:=Conjugates(G1,M[8] ‘subgroup); Didn’t 


ee 


C:=Conjugates (G1,M[7] ‘subgroup) ; 

CC:=Setseq(C); 

for iin [1..#CC] do if f(x) in CC[i] and f(y) in CC[i] 
and f(z) in CC[i] and f(w) in CC[i] and f(v) in CC[i] 
then i; end if; end for; 

/x Use the number given here was 332 first time «/ 


CC[332]; 
for g in Gl do if Order(g) eq 2 and 
CC[332] eq sub<Gl1|f(x),f(y),f£(z),f(w),f(v),g> 


then A:=g; break; end if; end for; 


W, phi:=WordGroup (G1); 
rho:=InverseWordMap (G1) ; 


A@rho; 
function (W) 
w7 := W.2 * W.4; w8 := w7 * W.3; w9 := w8 * W.6; 
wlO := w9 * W.2; wll := wl0* W.6; wl2 := wll * W.3; wil3 
:= wl2 * W.5; wl4 := wl3 * W.6; w3 := W.3°-1; wl5 
= wl4 * w3; wl6 := wl5 * W.6; wl7 := wl6 * W.3; wl8 
= wl7 « W.6; wl9 
:= wl8 * w3; w20 := wl9 *« W.6; return w20; 
end function; 


AA:=function (w) 


w7 := W.2 * W.4; w8 := w7 * W.3; w9 := w8 * W.6; 

wlO := w9 * W.2; wll := wl0* W.6; wl2 := wll * W.3; wil3 
:= wl2 *« W.5; wl4 := wl3 * W.6; w3 := W.37-1; wil5 

= wl4 * w3; wl6 := wl5 * W.6; wl7 := wl6 * W.3; wl8 

= wl7 « W.6; wl9 

= wl8 * w3; w20 := wl9 * W.6; return w20; 


end function; 


AA(G); 


NN:=G1; 


Sch:=SchreierSystem(G, sub<G|Id(G)>); 


ArrayP:i= 
fOr an 


:=[Id (NN): Ll 


[Id (NN) : 
[2..#NN] 


PP:=Id(NN); 


for k in 
PP:=PPxP 


[1..#P] 
[Kk]; 


ArrayP[i]:=PP; 


end for; 


for iin 
end if; 
/*x Zxtxevxt 


[1..#N2] 


end for; 
txzevetez > —-lLet*xz*xtez°-l*et relation which should 


be added 


bo 


end 


Pi 
PT 
Pil 
PT 
PT 
PT 


i in [1..#G]]; 
do 
..#Sch[i]]]; 
]] do 
3] eq 1 then 
3] eq 2 then 
3] eq 3 then 
3] eq -3 then 
3] eq 4 then 
3] eq 5 then 
3] eq 6 then 
do 
for; 


P 


do if ArrayP[1i] 


to our progenitor*/ 


Mode od Se gay ae Eh 


eq 


a a 


Qa Aa Os 


£ (AA (G) ) 


G<x,Yy,Z,W,vV,t>:=Group<x, y,Z,w,v,t|x°2,y 2,2 °3, 


w°2,V°2,Y° X=VY,Z° X=Z,Z° Y=Z,W X=W,W y=w, 


VO V=V,V"> Z=WkV,V W=V, 


t*2, (t,x*y*w), (t,y*v), (x*t) 3, (z*t) “5>; 


W°Z=V,V°X=Vv, 


£,G1,k:=CosetAction (G, sub<G|x,y,Z,W,V>) ; 


#sub<Gll|/f(x),f(y),f£(z),f(w),f(v), 


£(zxtCkVACKZ*VE 


J:=M[7] ‘subgroup; 


L:=sub<G1l 


£(ZxtCkVACKZKVAI 


IsIsomorphic(J,lL); 


| £ (x) 


/x this work verifies w 


have found the correct relation 


txz°-Lxtxzxt*z°-1lxt) >; 


rfi(y),f£(z),f(w),f(v), 
txz°—-Llxtez*xt*z°-lxt) >; 


ah 3 
a fe 
if; 
end 
niga 
niga 
niga 


aie 


then Sch[i]; 


*/ 
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M:=sub<G|xX,V,Z,W,V, ZeCKVACHZAVACAZ  -LataZ*AtC KZ -Lxt>; 
#DoubleCosets (G,M, sub<G|x,y,Z,W,V>) ; 
/x This is a reasonable group to work with «/ 


/x ===== Coset Counter and DCE ===== 


*/ 


G<x,Yy,Z,W,vV,t>:=Group<x, y,Z,w,v,t|x°2,y°2,Zz° 3, 
w2,V°2,Y° X=V,Z X=Z,Z° Y=Z,W X=W,W Y=W, W Z=V,V°X=V, 

VO y=V, V0 Z=Wev,V w=v,t°2, (t,x*y*«w), (t,y*v), (x*t) 73, (z*t) 75>; 
£,G1,k:=CosetAction (G, sub<G|x,y,Z,W,V>) ; 


S:=Sym(12) 

X:=S!(1, 2) (3, 5) (4, 6) (7, 9) (8, 10) (11, 12); 
Y:=S!(1, 3) (2, 5) (4, 7) (6, 9) (8, 11) (10, 12); 
LE=Bl (ly “40 3B) (25. “6p LOY CS Tyee LL) (S49 22) 3 
W:=S! (1, 2) (3, 5) (4, 7) (6, 9) (8, 12) (10, 11); 
V:=S!(1, 5) (2, 3) (4, 6) (7, 9) (8, 11) (10, 12); 


N:=sub<S|X,Y,2Z,W,V>} 
#N; 
Set (N); 


HH:=sub<G|X, VY, Z, Wy, V,_ ZECKVACAZAVACRZ -LAtKeZet ez -Let>; 
#HH; 


IN:=sub<G1|/f(x),f(y),f£(z),f£(w),f(v)>; 


M:=sub<G1|f(x),f(y),f(z),f(w),f(v), 
£(ZaCAVACAZAVAEAZ > —Latezxtxz>-lLet) >; 


ts := [ Id(Gl): i in [1 .. 12] ]; 
ts[12]:=f(t); 
ts[l]:=f (t* (x*y*z)); 
ts[2]:=f£(t* (z*y)); 
ts[3]:=f (t* (z*x)); 
ts[4]:=f£ (t* (x*xv*xz72)); 
ts[5]:=f(t* (z)); 
ts[6]:=f£(t* (v*z7*2)); 
ts[7]:=f£ (t* (x*z72)); 
ts[8]:=f£ (t* (x«*v)); 
ts[9]:=f(t* (z*2)); 
ts[10]:=f£(t* (v)); 
ts[11l]:=£(t* (x)); 
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#DoubleCosets (G, SUD<G|X, VY, Z,W, V,_ ZECKVACAZAVACAZ -LACKZHRt 


A 


Z SLES; 


sub<G|X,V,Z,W,V>) ; 


DoubleCosets (G, sub<G|X, VY, Z,W,V, ZECAVACAZAVAC AZ Lat xzetx 


Aa 


Zr =LEES, 
sub<G|X,V,Z,W,V>); 
Index (G,HH); /* 495 x/ 
#G/#IN; /x 3960 x/ 


prodim := function(pt, Q, I) 
vi:= pt; 


vi i= v°(Qlil); 
end for; 
return v; 
end function; 


cst := [null iin [1 
where null is [Integers() | ]; 
for a. 2= 1: tor L2 -do 
cst[prodim(1, ts, [i])] := [il; 
end for; 
m:=0; 
for i in [1..3960] do if cst[i] ne [] 


end if; end for; m; 
Orbits (N); 


N12:=Stabiliser(N,12); 
SSS:={[12]}; SSS:=SSS°N; 
# (SSS); 
Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 
for n in M do 

if ts[12] eg 

nxts [Rep (Seqq[i]) [1] ] 
then print Rep(Seqq[i]); 
end if; end for; end for; 
N12s:=N12; 


T12:=Transversal(N,N12s); 
for i in [1..#T12] do 
ss:=[12]°T12[i]; 


cst[prodim(l, ts, ss)] := ss; 


Index (G, sub<G|x,y,Z,Ww,v>) ] ] 


then m:=m+1; 
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end for; 
m:=0; for iin [1..3960] do if cst[i] ne [] 
then m:=m+l; end if; end for; Mm; 


Orbits (N12s); 


[k kkkk*kkkk*x New Double cosets of [12] xxx e eK «/ 


N121:=Stabiliser(N12,1); 
SSS:={[12,1]}; SSS:=SSS°N; 
# (SSS); 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in M do 

if ts[12]xts[1] eq 

nxts [Rep (Seqq[i]) [1] ]*ts[Rep(Seqq[i]) [2]] 
then print Rep(Seqq[i]); 
end if; end for; end for; 
N121s:=N121; 


T121:=Transversal (N,N121s); 

£OPr™ 4. VAs ETI 2 do 

Ss= [12:4] (TIA [a]; 

cst[prodim(l1, ts, ss)] := ss; 

end for; 

m:=0; for iin [1..3960] do if cst[i] ne [] 
then m:=mt+t1l; end if; end for; m; 

Orbits (N121s); 


N124:=Stabiliser(N12,4); 
SSS:={[12,4]}; SSS:=SSS°N; 
# (SSS) ; 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in M do 

if ts[12]*ts[4] eg 

nxts [Rep (Seqq[i]) [1] ]*ts[Rep(Seqq[i]) [2]] 
then print Rep(Seqq[i]); 
end if; end for; end for; 
N124s:=N124; 


T124:=Transversal (N,N124s); 
for i in [1..#T124] do 


ss:=[12,4]°T124[i]; 

cst[prodim(l1, ts, ss)] := ss; 

end for; 

m:=0; for i in [1..3960] do if cst[i] ne [] 
then m:=m+l; end if; end for; Mm; 

Orbits (N124s); 


[x *xkxkx*x*x*xNew double cosets of [12, 1] *xxxxxxeex x/ 


N1214:=Stabiliser(N121,4); 
SSS:={[12,1,4]}; SSS:=SSS°N; 
# (SSS) ; 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in M do 

if ts[12]xts[l]*ts[4] eq 


nxts [Rep (Seqq[i]) [1] ]*ts[Rep(Seqq[i]) [2]]*ts[Rep (Seqq[i]) [3]] 


then print Rep(Seqq[i]); 
end if; end for; end for; 
N1214s:=N1214; 


for g in N do if 12°g eq 2 and 1*g eq 9 and 4°g eq 10 
then N1214s:=sub<N|N1214s,g>; end if; end for; 

for g in N do if 12°g eq 7 and 1*g eq 11 and 4°g eq 5 
then N1214s:=sub<N|N1214s,g>; end if; end for; 
#N1214s; N1214s; 


T1214:=Transversal (N,N1214s); 

for iin [1..#T1214] do 
ss:=[12,1,4]°T1214 [i]; 

cst[prodim(l1, ts, ss)] := ss; 

end for; 

m:=0; for iin [1..3960] do if cst[i] ne [] 
then m:=m+l; end if; end for; Mm; 

Orbits (N1214s); 


N1215:=Stabiliser(N121,5); 
SSS:={[12,1,5]}; SSS:=SSS°N; 
# (SSS) ; 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in M do 

if ts[12]«ts[1l]«ts 


[5] eq 
nxts [Rep (Seqq[i]) [1] 


]«ts [Rep (Seqq[i]) [2]]*ts [Rep (Seqq[i]) [3]] 
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then print Rep(Seqq[i]); 
end if; end for; end for; 
N1215s:=N1215; 


T1215:=Transversal (N,N1215s); 

for iin [1..#T1215] do 

Ssi= [1245-5] °TL2 15 fa) 3 

cst[prodim(l, ts, ss)] := ss; 

end for; 

m:=0; for i in [1..3960] do if cst[i] ne 
then m:=mt+1l; end if; end for; m; 

Orbits (N1215s); 


N1217:=Stabiliser(N121,7); 
SSS:={[12,1,7]}; SSS:=SSS°N; 
# (SSS) ; 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in M do 

if ts[12]x«ts[l]*ts[7] eg 


n«ts [Rep (Seqq[i]) [1] ]*ts[Rep (Seqq[i]) [2] ]*ts[Rep (Seqq[i]) [3]] 


then print Rep(Seqq[i]); 
end if; end for; end for; 
N1217s:=N1217; 


for g in N do if 12°g eq 8 and 1*g eq 2 and 7°g eq 4 
then N1217s:=sub<N|N1217s,g>; end if; end for; 


#N1217s; N1217s; 


T1217:=Transversal (N,N1217s); 
for iin [1..#T1217] do 
ss:=[12,1,7]°T1217[i]; 
cst[prodim(l1, ts, ss)] := ss; 
end for; 
m:=0; for i in [1..3960] do if cst[i] ne 
then m:=m+l; end if; end for; Mm; 

Orbits (N1217s); 


N1218:=Stabiliser(N121,8); 
SSS:={[12,1,8]}; SSS:=SSS°N; 
# (SSS) ; 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in M do 


[] 
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if ts[12]xts[l]*ts[8] eq 

n*ts [Rep (Seqq[i]) [1] ]*ts[Rep (Seqq[i]) [2] ] «ts [Rep (Seqq[i]) [3]] 
then print Rep(Seqq[i]); 

end if; end for; end for; 

N1218s:=N1218; 


T1218:=Transversal (N,N1218s); 
for iin [1..#T1218] do 
ss:=[12,1,8]°T1218 [i]; 
cst[prodim(l, ts, ss)] := ss; 
end for; 
m:=0; for i in [1..3960] do if cst[i] ne [] 
then m:=m+l; end if; end for; Mm; 

Orbits (N1218s); 


N1219:=Stabiliser (N121,9); 
SSS:={[12,1,9]}; SSS:=SSS°N; 
# (SSS) ; 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in M do 

if ts[12]xts[l]*ts[9] eg 
n*xts [Rep (Seqq[i]) [1] ]*«ts[Rep (Seqq[i]) [2] ]*ts[Rep(Seqq[i]) [3]] 
then print Rep(Seqq[i]); 

end if; end for; end for; 
N1219s:=N1219; 


T1219:=Transversal (N,N1219s); 

for 2 in [Pl.w.#tTI219] «do 
ss:=[12,1,9]°*T1219[i]; 

cst[prodim(l1, ts, ss)] := ss; 

end for; 

m:=0; for i in [1..3960] do if cst[i] ne [] 
then m:=m+l; end if; end for; m; 

Orbits (N1219s); 


N12110:=Stabiliser(N121,10); 

SSS:={[12,1,10]}; SSS:=SSS°N; 

# (SSS) ; 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in M do 

if ts[12]xts[1l]*ts[10] eg 

nxts [Rep (Seqq[i]) [1] ]*«ts[Rep (Seqq[i]) [2] ]*ts[Rep(Seqq[i]) [3]] 


then print Rep(Seqq[i]); 
end for; 


end if; end for; 
N12110s:=N12110; 


T12110:=Transversal 


for i in 


end for; 


[des 
ss:=[12,1,10]°T1 
cst [prodim(1, 


L(N,N12110s); 


.#T12110] do 
2110[i]; 
ts, ss)] := ss; 
[1..3960] do if cst[i] ne 


m:=0; for i in 


then m:=m 


tl; 


end if; end for; m,; 
Orbits (N12110s); 


N12111:=Stabiliser(N121,11); 


SSS:={[12,1,11]}; 


# (SSS); 


Seqq:=Setseq(SSS) ; 
[1..#SSS] 
for n in M do 
if ts[12]xts[1l]*ts[11] eq 


for i in 


n«ts [Rep (Seqq[i]) [1] ]*ts[Rep (Seqq[i]) [2] ]*ts[Rep (Seqq[i]) [3]] 


SSS:=SSS°N; 


do 


then print Rep(Seqq[i]); 
end for; 


end if; end for; 
N12111s:=N12111; 


for g in N do if 12°g eq 


then N12111s:=sub<N|N12111s,g>; end if; 


#N12111s; N12111s; 
T12111:=Transversal (N,N12111s); 
for i in [1..#T12111] do 
ss:=[12,1,11]°T12111[i]; 
cst[prodim(l1, ts, ss)] := ss; 


end for; 
m:=0; for 


i 


an? ‘L13960)] 


then m:=m 


1; 


end if; end for; m,; 
Orbits(N12111s); 


[& *kkkkkkkkxxkNew Double Cosets of 
N12152:=Stabiliser(N1215,2); 
SSS:={ [2 Ly 57.2] 3 


# (SSS); 


Seqq:=Setseq(SSS) ; 
for i an [1..#SSS] 


SSS:=SSS°N; 


do 


do if cst[i] ne 


[12, 


[] 


11 and 1*g eq 2 and 11°g eq 12 


end for; 


KORO KKK / 
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for n in M do 

1f ts[12]xts[1l]*«ts[5]*ts[2] eq 
] 
] 


ts [Rep (Seqq[i]) [2] ]*ts [Rep (Seqq[i]) [3]] 


* 
n«ts [Rep (Seqq[i]) [1] ]* 
xts [Rep (Seqq[i]) [4] 


then print Rep(Seqq[i]); 

end if; end for; end for; 

N12152s:=N12152; 

for g in N do if 12°g eq 11 and 1*g eq 2 and 5°g eq 3 and 
2°g eq 1 then N12152s:=sub<N|N12152s,g>; end if; end for; 
for g in N do if 12°g eq 10 and 1*°g eq 3 and 5°g eq 2 and 
2°g eq 5 then N12152s:=sub<N|N12152s,g>; end if; end for; 
for g in N do if 12°g eq 8 and 1*g eq 4 and 5°g eq 1 and 
2°g eq 3 then N12152s:=sub<N|N12152s,g>; end if; end for; 
for g in N do if 12°g eq 3 and 1*g eq 7 and 5°g eq 6 and 
2°g eq 9 then N12152s:=sub<N|N12152s,g>; end if; end for; 
for g in N do if 12°g eq 5 and 1*g eq 9 and 5°g eq 4 and 
2°g eq 7 then N12152s:=sub<N|N12152s,g>; end if; end for; 
for g in N do if 12°g eq 1 and 1*g eq 4 and 5°g eq 9 and 
2°g eq 6 then N12152s:=sub<N|N12152s,g>; end if; end for; 
for g in N do if 12°g eq 4 and 1*g eq 10 and 5°g eq 11 and 
2°g eq 8 then N12152s:=sub<N|N12152s,g>; end if; end for; 
for g in N do if 12°g eq 2 and 1*g eq 6 and 5°g eq 7 and 
2°g eq 4 then N12152s:=sub<N|N12152s,g>; end if; end for; 
for g in N do if 12°g eq 6 and 1*g eq 8 and 5°g eq 12 and 
2°g eq 10 then N12152s:=sub<N|N12152s,g>; end if; end for; 
for g in N do if 12°g eq 7 and 1*g eq 12 and 5°g eq 8 and 
2°g eq 11 then N12152s:=sub<N|N12152s,g>; end if; end for; 
for g in N do if 12°g eq 9 and 1*g eq 11 and 5°g eq 10 and 
2°g eq 12 then N12152s:=sub<N|N12152s,g>; end if; end for; 
#N12152s; N12152s; 


T12152:=Transversal (N,N12152s); 
For a. 32n,. [Lesa T1L2052))) do 
ss:=[12,1,5,2]°T12152[1]; 
cst[prodim(l, ts, ss)] := ss; 
end for; 
m:=0; for iin [1..3960] do if cst[i] ne [] 
then m:=mt+t1l; end if; end for; m; 

Orbits (N12152s); 


N12156:=Stabiliser(N1215,6); 
SSS:={[12,1,5,6]}; SSS:=SSS°N; 
# (SSS); 


Seqq:=Setseq(SSS) ; 
for i in [1..#SSS] 
for n in M do 

if ts[12]*ts[l]xts 


n*xts [Rep (Seqq[i]) [1 
xts [Rep (Seqq[i]) [4] 


do 


xts[ 
a 


[5] 
}] 
] 


then print Rep(Seqq[i]); 
end if; end for; end for; 


N12156s:=N12156; 


T12156:=Transversal (N,N12 
for i in [1..#T12156] do 

ss:=[12,1,5,6]°T12156[1i]; 
cst[prodim(l, ts, ss)] := 


end for; 


m:=0; for i in [1..3960] 
then m:=m+l; end if; end 


Orbits (N12156s); 


6] eq 


ts [Rep (Seqq[i]) [2] ]*ts[Rep(Seqq[i]) [3]] 


156s); 


SS; 


do if cst[i] ne [] 
for;: ~ mF 


N12158:=Stabiliser(N1215,8); 


SSS:={[12,1,5,8]}; 
# (SSS); 
Seqq:=Setseq(SSS) ; 
for i in [1..#SSS] 
for n in M do 

if ts[12]x«ts[1]*ts 


n«xts [Rep (Seqq[i]) [1 
xts [Rep (Seqq[i]) [4] 


SSS:=S 


do 


xts[ 
3 


[5] 
}] 
] 


then print Rep(Seqq[i]); 
end if; end for; end for; 


N12158s:=N12158; 


for g in N do if 12°g eq 10 and 1°g eq 1 and 5°g eq 5 and 
8°g eq 11 then N12158s:=sub<N|N12158s,9>; 


#N12158s; 
N12158s; 


T12158:=Transversal 
for i in [1..#T12158] do 


ss:=[12,1,5,8]°T121 


L(N,N12 


L58 [il]; 


cst[prodim(l1, ts, ss)] := 


end for; 


m:=0; for i in [1..3960] 


then m:=m+l; end if; end 


SS°N; 


8] eg 


ts [Rep (Seqq[i]) [2] ]*ts[Rep (Seqq[i]) [3]] 


158s); 


SS; 


do if cst[i] ne [] 
for; mm; 


end if; 
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Orbits (N12158s); 


N12159:=Stabiliser(N1215,9); 
SSS:={[12,1,5,9]}; SSS:=SSS°N; 
# (SSS); 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in M do 

if ts[12]«ts[l]«ts[ 
nxts [Rep (Seqq[i]) [1 
xts [Rep (Seqq[i]) [4] 
then print Rep(Seqq[i]); 
end if; end for; end for; 
N12159s:=N12159; 


ts[9] eg 
ts [Rep (Seqq[i]) [2] ]*ts[Rep(Seqq[i]) [3]] 


ww OT 
ray 
+ + 


for g in N do if 12°g eq 10 and 1*°g eq 1 and 5°g eq 5 and 
9*g eq 4 then N12159s:=sub<N|N12159s,g>; end if; end for; 
#N12159s; N12159s; 


T12159:=Transversal (N,N12159s); 
for 2. in [1..4T12159): .do 
Ss=[12,1,5, 9] *T12159'4] 
cst [prodim(l1, ts, ss) ] = 
end for; 

m:=0; for iin [1..3960] do if cst[i] ne [] 
then m:=m+l; end if; end for; Mm; 

Orbits (N12159s); 


SS; 


N12185:=Stabiliser(N1218,5); 
SSS:={[12,1,8,5]}; SSS:=SSS°N; 
# (SSS); 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in M do 

if ts[12]*«ts[l]«ts 
nxts [Rep (Seqq[i]) [ 
xts [Rep (Seqq[i]) [4 
then print Rep(Seqq[i]); 
end if; end for; end for; 
N12185s:=N12185; 


[8]xts[5] eq 
1]]*ts[Rep (Seqq[i]) [2] ]*ts[Rep (Seqq[i]) [3] ] 
]] 


for g in N do if 12°g eq 12 and 1*°g eq 5 and 5°g eq 1 and 
8°g eq 8 then N12185s:=sub<N|N12185s,g>; end if; end for; 
#N12185s; N12185s; 
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T12185:=Transversal (N,N12185s); 
for i in [1..#T12185] do 
ss:=[12,1,8,5]°T12185[1i]; 
cst[prodim(l1, ts, ss)] := 
end for; 

m:=0; for iin [1..3960] do if cst[i] ne [] 
then m:=m+l; end if; end for; m; 

Orbits (N12185s); 


SS; 


[ke KKKKKKKKKKKK 5 Letter double COSEES KKKKKKKKKKKKKKKK */ 
N121581:=Stabiliser (N12158,1); 

SSS:={[12,1,5,8,1]}; SSS:=SSS°N; 

# (SSS) ; 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in M do 


if ts[12]xts[1l]*ts[5]«ts[8]xts[1l] eg 
] 
] 


] x1 

n*xts [Rep (Seqq[i]) [1] ]*ts[Rep (Seqq[i]) [ 
xts [Rep (Seqq[i]) [4] ]*ts[Rep(Seqq[i]) [5 
then print Rep(Seqq[i]); 

end if; end for; end for; 
N121581s:=N121581; 


2]]*ts[Rep (Seqq[i]) [3]] 
}] 


for g in N do if 12°g eq 11 and 1*g eq 2 and 5°g eq 3 and 
8°g eq 10 and 1l°g eq 2 then N121581s:=sub<N|N121581s,g9>; 

end if; end for; 
for g in N do if 12°g eq 8 and 1*g eq 2 and 5°g eq 3 and 
8°g eq 12 and 1l°g eq 2 then N121581s:=sub<N|N121581s,g9>; 
end if; end for; 


for g in N do if 12°g eq 10 and 1*g eq 5 and 5°g eq 1 and 
8°g eq 11 and 1l°g eq 5 then N121581s:=sub<N|N121581s,g9>; 
end if; end for; 
for g in N do if 12°g eq 10 and 1*g eq 1 and 5°g eq 5 and 
8°g eq 11 and 1l°g eq 1 then N121581s:=sub<N|N121581s,9>; 
end if; end for; 


for g in N do if 12°g eq 8 and 1*g eq 3 and 5°g eq 2 and 
8°g eq 12 and 1l°g eq 3 then N121581s:=sub<N|N121581s,g9>; 
end if; end for; 


for g in N do if 12°g eq 11 and 1*g eq 3 and 5°g eq 2 and 
8°g eq 10 and 1*g eq 3 then N121581s:=sub<N|N121581s,q>; 
end if; end for; 
for g in N do if 12°g eq 12 and 1°g eq 5 and 5°g eq 1 and 
8°g eq 8 and 17g eq 5 then N121581s:=sub<N|N121581s,9>; 
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end if; end for; 
#N121581s; N121581s; 


T121581:=Transversal (N,N121581s); 

for i in [1..#T121581] do 
ss:=[12,1,5,8,1]°T121581 [i]; 

cst[prodim(l1, ts, ss)] := ss; 

end for; 

m:=0; for iin [1..3960] do if cst[i] ne [] 
then m:=m+l; end if; end for; Mm; 

Orbits (N121581s); 


G<x,y,Z,W,vV,t>:=Group<x, y,Z,w,v,t|x°2,y°2,Z2°3,w 2,V°2,y X=y, 
Z°X=Z,Z° Y=Z,W X=W, W° y=W, W Z=V,V X=V,V°V=V,/ V0 Z=WEV, VO W=V, 
t°2, (t,x*yx*w), (t,y*v), (x*t) “3, (z*t) “5>; 


£,G1,k:=CosetAction (G, sub<G|x,Vy,Z,W,Vv>) ; 
S:=Sym(12); 

X:=S!(1, 2) (3, 5) (4, 6) (7, 9) (8, 10 dy. D2) 
Y:=S!(1, 3) (2, 5) (4, 7) (6, 9) (8, 11 O, 12); 
Z:=S! (1, 4, 8) (2, 6; LO) (3, 7, Li); 9, 12)3 
W:=S!(1, 2) (3, 5) (4, 7) (6, 9) (8, 12) (10, 11); 
VI=Sl 7, 3) (25 3)0 (45-96) C7 968g TT) (L0," 22) 
N:=sub<S|X,Y, a W,V>; 

#N; 

Set (N) ; 


HH:=sub<G|X, Vy, Z,W, Vy, ZECKVACAZAEVACKZ —Latazetxz>-lLet>; 
#HH; 


IN:=sub<G1|f(x),f(y),f£(z),£(w),f(v)>; 
M:=sSsub<G1|f(x),f(y),f£(z),f£(w),f(v), 
£(ZACAVACAZAVAEAZ > —Latazxtxz>-lLet) >; 
ts := [| Id(Gl): i in [1 .. 12] ]; 

Es [iz] s-£(t)7 

Es [1] s=£(t* (x*xy*z)); 

ts[2]:=f(t* (zxy)); 
ts[3]:=f (t* (z*x)); 

ts[4]:=f(t* (x*v*«z72)); 
Lelsl2=itt a) )y 

ts[6]:=f£(t* (v*z°2)); 


ts[7]:=f (t* (x*z72)); 
ts[8]:=f(t* (x*«v)); 
ts[9]:=f(t* (z72)); 
ts[10] :=£(t* (v)); 
ts[11] :=£(t* (x)); 
N:=G1; NN:=G; 


Sch:=SchreierSystem(NN, sub<NN|Id (NN) >); 
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ArrayP:=[Id(G1l): i in [1..#G1]]; 

for i in [2..#G1] do 

P:=[Id(G1): l in [1..#Sch[il]l]]; 

for j in [1..#Sch[i]] do 

if Eltseq(Sch[i])[j] eq 1 then P[j]:=f(x); end if; 

if Eltseq(Sch[i])[j] eq 2 then P[j]:=f(y); end if; 

if Eltseq(Sch[i])[j] eq 3 then P[j]:=f(z); end if; 

if Eltseq(Sch[i]) [3] eq -3 then P[j]:=f(z°-1); end if; 
if Eltseq(Sch[i])[j] eq 4 then P[j]:=f(w); end if; 

if Eltseq(Sch[i])[j] eq 5 then P[j]:=f(v); end if; 

if Eltseq(Sch[i])[j] eq 6 then P[j]:=f(t); end if; 

end for; 

PP:=Id(G1); 

for k in [1..#P] do PP:=PP*P[k]; end for; 

ArrayP[i]:=PP; 

end for; 

for g in M do for h in IN do if ts[12]*ts[8] eq g*(ts[12]) 7h 
then A:=g;B:=h; break; end if; end for; end for; 

for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 

ts[12]*ts[8] eq f(w* t * we t * v x t)xts[1l1]; 

for g in M do for h in IN do if ts[12]*ts[10] eq g*(ts[10])7h 
then A:=g;B:=h; break; end if; end for; end for; 

for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 

ts[12]x*ts[10] eq f(y *« t *« y *« t * w * t)xts[11]; 

for g in M do for h in IN do if ts[12]*ts[11] eq g*(ts[12])7h 


then A:=g;B:=h; 
for iin 


end if; end for; 


fOr: 4. 2n 
end if; end for; 
ts[12]*ts[11] 


/x [12, 1] */ 


[1..#G1 


[1..#G1 


break; end if; 
] do if ArrayP[i] 


] do if ArrayP[i] 


eq f£(x)xts[12]; 


end for; 


eq A 


eq B 


end for; 
then Sch[i]; 


then Sch[i]; 


for g in M do for h in IN do if ts[12]x«ts[1l]*ts[2] 
eq gx(ts[12]x*ts[1])7*h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]*ts[l]«ts[2] eq £(x)x*ts[1ll1l]*ts[1]; 

for g in M do for h in IN do if ts[12]x*ts[l]«ts[12] 


eq gx(ts[12]*ts[1])7*h 

then A:=g;B:=h; break; end if; end for 
for iin [1..#G1] do if ArrayP[i] eq A 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B 
end if; end for; 


ts[12]«ts[l]x«ts[ 
FAR oe OR OO EE 


12] eq 


* t * zz * t)*ets[12]*«ts[1]; 


then Sch 


; end for; 
then Sch 


[i]; 


[a] % 


for g in M do for h in IN do if ts[12]*ts[1]«ts[3] 


eq gx(ts[12]xts 


[4]) 7h 


then A:=g;B:=h; 
for iin 
end if; 

for iin 
end if; end for; 
ts[12]xts[l]«ts 
f(y *t* yet 


end for; 


for g in M do for h in IN do if 


eq gx(ts[12]xts 
then A:=g;B:=h; 


1..#G1 


1..#G1 


break; end if; 
] do if ArrayP[i] 


] do if ArrayP[i] 


[3] eq 


end for; 


eq A 


eq B 


* wrx t * z*-1l)*ets[4]*ts[2]; 


for i in 


end if; end for; 


fOr: db An 


[1..#G1 


[1..#G1 


end for; 
then Sch[i]; 


then Sch[i]; 


ts[12]*ts[l]*ts[6] 


[4])“h 

break; end if; end for; end for; 

] do if ArrayP[i] eq A then Sch[il; 
] do if ArrayP[i] eq B then Sch[il; 
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end if; end for; 
ts[12]*«ts[1l]«ts[6] 


eq f(v * z*-1)«ts[l]*ts[12]; 


/*x [12 1 4] x/ 


for g in M do for h in IN do if ts[12]x*ts[1l]*«ts[4]x«ts[1] 


eq gx(ts[12]xts 


[l]*ts[7]) 7h 


then A:=g;B:=h; 
for 
end 
for 
end if; end for; 
ts[12]«ts[l]«ts 


if; end for; 


eq f£ (texeyxtxy*zetxz>-] 


iin [1..#G1 


iin [1..#G1 


break; end if; end for; end for; 

] do if ArrayP[i] eq A then Sch[il]; 
] do if ArrayP[i] eq B then Sch[il; 
[4] «ts[1] 


*ktxz*t*z°-lxt)«ts[10]«ts[2]«ts[7]; 


for g in M do for h in IN do if ts[12]x«ts[l]*«ts[4]x«ts[2] 


eq gx(ts[12]xts 


1]xts[4]) 7h 


then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[il]; 
end if; end for; 

ts[12]*ts[1l]«ts[4]«ts[2] 

eq f(x * t * wx t * v * t * z)xts[l0]*«ts[l]«ts[9]; 
for g in M do for h in IN do if ts[12]*ts[l]*ts[4]*ts[3] 
eq gx(ts[12]*ts[4]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]«ts[l]«ts[4]«ts[3] 


eq f(y * zxt 


/x [12 1 5] x/ 


* yx tC * we t * z)xts[12] *«ts[9]; 


for g in M do for h in IN do if ts[12]x*ts[1]*ts[5]xts[1] 


eq gx(ts[12]xts 


[l]*ts[5]) 7h 


then A:=g;B:=h; 
£Or 
end 
for 
end 


abs ae 
dy en 
al ae 


end for; 


end for; 


iin [1..#G1 


[1..#G1 


break; end if; 
] do if ArrayP[i] 


] do if ArrayP[i] 


end for; end for; 
eq A then Sch[i]; 
eq B then Sch[i]; 
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ts[12]«ts[l]*«ts[5]«ts[1] 
eq £(x * w * v)xts[12]x«ts[l]«ts[5]; 


for g in M do for h in IN do if ts[12]*ts[l]*ts[5]*ts[3] 
eq gx (ts[12]*ts[4])7h 

then A:=g;B:=h; break; end if; end for; end for; 

for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 

end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[il]; 
end if; end for; 
ts[12]*ts[1l]«ts[5]xts[3] 
eq f(t * xX * we t * we t * zZ°>-1l)*ets[6]*«ts[1]; 


for g in M do for h in IN do if ts[12]x*ts[l]*«ts[5]x«ts[4] 
eq gx (ts[12]*ts[1l]*ts[8])“h 

then A:=g;B:=h; break; end if; end for; end for; 

for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 

end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[il]; 
end if; end for; 
ts[12]*«ts[1l]«ts[5]«ts[4] 
eq f(z * t x wx t * v * t)xts[8]xts[5]*«ts[12]; 


for g in M do for h in IN do if ts[12]x*ts[1l]*ts[5]x«xts[7] 
eq gx (ts[12]*ts[l]*ts[8]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 

for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 

end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]*ts[1l]«ts[5]«ts[7] 

eq £(x*zetxz>-Letazetxz°>-lLetazext) «ts [9] *xts[1ll]«ts[4]; 


for g in M do for h in IN do if ts[12]*ts[l]«ts[5]xts[10] 
eq gx (ts[12]*ts[1l]*ts[10])“h 

then A:=g;B:=h; break; end if; end for; end for; 

for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 

end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]*ts[1l]«ts[5]«*«ts[10] 
eq f(t * wx t * vx t * x * z)xts[7]xts[1ll]«ts[4]; 


for g in M do for h in IN do if ts[12]*ts[l]«ts[5]xts[11] 
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eq gx (ts[12]*ts[1l]*ts[10])“h 
then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[il]; 
end if; end for; 
ts[12]*ts[1l]«ts[5]«*«ts[11] 
eq ff (x*tez > -Lxtezatxz>-Letazavetewet) xts[l]*«ts[6]«ts[3]; 


for g in M do for h in IN do if ts[12]*ts[l]«ts[5]x«ts[12] 
eq gx (ts[12]*ts[l]*ts[5]*ts[6]) 7h 
then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]*ts[1l]«ts[5]«ts[12] 
eq £(zxtxvetxwet*xxez) xts[4]*ts[10]x«ts[1ll]xts[5]; 
/x [12 1 7] x/ 


for g in M do for h in IN do if ts[12]x*ts[1l]*«ts[7]x«ts[1] 


eq gx(ts[12]*ts[l]*ts[4]) 7h 
then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]*ts[1l]«ts[7]«ts[1] 
eq f(y*xtezxtxz°>-Latxzxtaevez > -lLatxyrt) xts[4]*ts[12] «ts[5]; 
for g in M do for h in IN do if ts[12]x*ts[l]*«ts[7]x«ts[3] 


eq gx(ts[12]x*ts[l]*ts[5]*ts[6]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[il]; 
end if; end for; 
ts[12]*ts[1l]«ts[7]«ts[3] 


eq f(z *« t *« v x 


for g in M do fo 
eq gx(ts[12]xts[ 
then A:=g;B:=h; 


t*« wet *« ze vixts[2]«*«ts[9] *«ts[4] *«ts[8]; 


rh in IN do if ts[12]«ts[l]«ts[7]«ts[6] 
1]*ts[9])“h 


break; end if; end for; end for; 


for iin [1..#G1] do if ArrayP[ 
end if; end for; 

for iin [1..#G1] do if ArrayP[ 
end if; end for; 
ts[12]*ts[l]*ts[7]«ts[6] 


eq £(x * Z x * wx tC * v * t) 


for g in M do for h in IN do if 


eq gx (ts[12]*ts[l]*ts[9]) 7h 
then A:=g;B:=h; break; end if; 
for iin [1..#G1] do if ArrayP 
end if; end for; 

for iin [1..#G1] do if ArrayP 
end if; end for; 
ts[12]«ts[l]«ts[7]«ts[8] 

eq f(w* t * vx t * w * t)xts 


for g in M do for h in IN do if 


eq gx(ts[12]*ts[4]) 7h 

then A:=g;B:=h; break; end if; 
for iin [1..#G1] do if ArrayP[ 
end if; end for; 

for iin [1..#G1] do if ArrayP[ 
end if; end for; 
ts[12]*ts[l]«ts[7]xts[10] 


eq f(y * z*t * wx t * y * t) 


/x [12 1 8] x/ 


for g in M do for h in IN do if 


eq gx(ts[12]*ts[4]) 7h 

then A:=g;B:=h; break; end if; 
for iin [1..#G1] do if ArrayP[ 
end if; end for; 

for iin [1..#G1] do if ArrayP[ 
end if; end for; 
ts[12]«ts[l]«ts[8]*«ts[1] 
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i] eq A then Sch[i]; 

i] eq B then Sch[i]; 
xts[l0]*ts[1l]*ts[4]; 
ts[12]*ts[l]*ts[7]«ts[8] 
end for; end for; 

i] eq A then Sch[i]; 

[i] eq B then Sch[i]; 


8]xts[2]xts[o]; 


ts[12]*ts[l]*ts[7]*«ts[10] 


end for; end for; 


i] eq A then Sch[i]; 


i] eq B then Sch[i]; 


xts[6]xts[1]; 


ts[12]*ts[l]*ts[8]«ts[1] 


end for; end for; 


i] eq A then Sch[i]; 


i] eq B then Sch[i]; 


eq ff (texeyxtxy*xz°>-Latxzetez>-Letxzet) x«ts[5]*ts[8]; 


for g in M do for h in IN do if 
eq gx (ts[12]*ts[1l]*ts[10])“h 
then A:=g;B:=h; break; end if; 
for iin [1..#G1] do if ArrayP[ 
end if; end for; 


ts[12]*ts[l]*ts[8]«ts[2] 


end for; end for; 


i] eq A then Sch[i]; 
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for iin [1..#G1] do if ArrayP[i] eq B then Sch[il]; 
end if; end for; 
ts[12]*«ts[1l]«ts[8]«ts[2] 


eq 


f(t *« x * wre t * w * t)x*xts[12]*ts[1]*«ts[10]; 


for g in M do for h in IN do if ts[12]x«ts[1]*«ts[8]xts[3] 


eq gx (ts[12]x*ts[1l]*ts[5]*ts[6]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]«ts[l]*ts[8]«ts[3] 

eq 


£(yxtxzxtxz°-Letxzetevez>-letey*t) «ts [12] *ts[5]*«ts[l]«ts[9]; 


for g in M do for h in IN do if ts[12]*ts[1]«*ts[8] 
eq gx (ts[12]*ts[l]*ts[8]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[ 
end if; end for; 

ts[12]*ts[1l]«ts[8]«ts[4] 


i] 


«ts [4] 


eq f£(zxtez>-Lxtazetxxexwez>-Latxzetewet) «ts [12] *ts[l]*«ts[8]; 


for g in M do for h in IN do if ts[12]x«ts[l]«ts[8]xts[6] 


eq gx (ts[12]*ts[1l]*ts[11])“h 

then A:=g;B:=h; break; end if; end for; end for; 

for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 

end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 

end if; end for; 

ts[12]*ts[1l]«ts[8]«ts[6] 

eq f£ (x*xtezxtxz°>-Latxzxtxz°>-Lavetaewet) xts[7] *ts[10] «ts[9]; 
for g in M do for h in IN do if ts[12]*ts[1]*«ts[8]*ts[7] 
eq gx(ts[12]«*ts[1l]*ts[5]*ts[6]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 

for iin [1..#G1] do if ArrayP[i] eq A then Sch[il]; 

end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 

end if; end for; 
ts[12]*ts[1l]«ts[8]«ts[7] 


eq f(t * xX * we t * we t * zZ°-1)*ts[1l0]*ts[3]«ts[2]*«ts[9]; 


for g in M do for h in IN do if ts[12]*ts[1]«ts[8 
eq gx (ts[12]*ts[1l]*ts[5])“h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i] 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i] 
end if; end for; 
ts[12]*ts[1l]«ts[8]«ts[9] 
eq f(y *« t * yx t * we t * 27-1 


]xts[9] 


lL)xts[8]«ts[5]«ts[1]; 


for g in M do for h in IN do if ts[12]*ts[l]«ts[8]xts[10] 


eq gx (ts[12]*ts[1l]*ts[10])“h 

then A:=g;B:=h; break; end if; end for; end for; 

for iin [1..#G1] do if ArrayP[i] eq A then Sch[il]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 

ts[12]*ts[l]«ts[8]xts[10] eq f(x) «*ts[ll]xts[2]*ts[8]; 
for g in M do for h in IN do if ts[12]*ts[l]«ts[8]xts[11] 
eq gx(ts[12]*ts[l]*ts[5])“h 

then A:=g;B:=h; break; end if; end for; end for; 

for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[il]; 
end if; end for; 
ts[12]*ts[1l]«ts[8]*«ts[11] 


eq ff (t*xzetxz>-Letezxtxz°>-let) «ts 


for g in M do for h in IN do if ts[12]*ts[1l]«ts[8 


eq gx (ts[12]x*ts[1l]*ts[5]*ts[9]) 7h 
then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[il] 
end if; end for; 
for iin [1..#G1] do if ArrayP[i] 
end if; end for; 
ts[12]*ts[1l]«ts[8]«*«ts[12] 


eq f(z * w)xts[3 


/x [12 1 9] x / 


Jxts[4]«ts[9] «ts 


[2]*ts[6]*ts[7]; 


eq A then Sch[i] 
eq B then Sch[i] 
[10]; 


]*xts[12] 
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for g in M do fo 
eq gx(ts[12]xts 


rh in IN do if ts[12]«ts[l]«ts[9]«ts[1] 


then A:=g;B:=h; 


for iin [1..#G1] 


end if; 

for iin 
end if; end for; 
ts[12]«ts[l]«ts 
eq £ (x*z*wxt*z>- 


end for; 


for g in M do fo 
eq gx(ts[12]xts 
then A:=g;B:=h; 


[1..#G1] 


[1l]*xts[11])“h 


[l]*ts[9]) 7h 
break; end if; end for; end for; 
do if ArrayP[i] eq A then Sch[i]; 
do if ArrayP[i] eq B then Sch[i]; 
[9] *ts[1] 


Latezetxz°>-letxzxt) «ts[12]*«ts[l]«ts[9]; 


rh in IN do if ts[12]«ts[l]«ts[9]«ts[2] 


for iin [1..#Gl 
end if; end for; 
for iin [1..#G1 
end if; end for; 
ts[12]«ts[l]«ts 
eq £(x * v x z)* 


for g in M do fo 
eq gx(ts[12]xts 
then A:=g;B:=h; 


break; end if; end for; end for; 
] do if ArrayP[i] eq A then Sch[il; 


] do if ArrayP[i] eq B then Sch[il; 


[9] xts[2] 


ts[9]*ts[ll]«ts[7]; 


rh in IN do if ts[12]«ts[l]«ts[9]«ts[3] 


[l]*ts[5]xts[8])*h 


for iin [1..#Gl 
end if; end for; 
for iin [1..#G1 
end if; end for; 
ts[12]«ts[l]«ts 
eq f(t * wx t * 


for g in M do fo 
eq gx(ts[12]xts 


break; end if; end for; end for; 
] do if ArrayP[i] eq A then Sch[il; 


] do if ArrayP[i] eq B then Sch[il; 


[9] «ts[3] 
yx*xt* y * z°-1)xts[9] *ts[8] «ts 
rh in IN do if ts[12]«ts[l]«ts[9]«ts[4] 


1lj*ts[5]*xts[6])*h 


then A:=g;B:=h; 
for iin [1..#G1 
end if; end for; 
for iin [1..#G1 
end if; end for; 
ts[12]«ts[l]«ts 


break; end if; end for; end for; 
] do if ArrayP[i] eq A then Sch[il; 


] do if ArrayP[i] eq B then Sch[il; 


[9] xts[4] 
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eq ff (txzxtez*-Latazxtez -Lavetxwet ex) ets [4] *ts[8]*ts[12]«ts[1]; 


for g in M do fo 
eq gx(ts[12]xts[ 


rh in IN do if ts[12]«ts[l]«ts[9]«ts[5] 
1lj«xts[5]*ts[9]) 7h 
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then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[il]; 
end if; end for; 
ts[12]*«ts[l]*ts[9]«ts[5] 

eq f£(vetezxetxz>-Latuzxtxz°>—-let) «ts[5] *«ts[4]*ts[9]*«ts[12]; 


for g in M do for h in IN do if ts[12]x«ts[l]*«ts[9]xts[6] 
eq gx(ts[12]*ts[l]*ts[9]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 

for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 

end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]*ts[1l]«ts[9]«ts[6] 
eq f(x * zx t * wrt * v * t)xts[9]xts[12]«ts[2]; 


for g in M do for h in IN do if ts[12]x«ts[l]*«ts[9]xts[7] 
eq gx(ts[12]*ts[l]*ts[7]) 7h 
then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[il]; 
end if; end for; 
ts[12]*ts[l]«ts[9]*xts[7] eq f(x) *ts[ll]*ts[2]«ts[9]; 


for g in M do for h in IN do if ts[12]x«ts[1l]*«ts[9]xts[8] 
eq gx(ts[12]*ts[l]*ts[5]*ts[6]) 7h 
then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]*ts[1l]«ts[9]«ts[8] 
eq ff (x*tezxtxz°>-Letxzxtez°>—-Llatxv) ets [10] *«ts[3]*«ts[2]*ts[9]; 


for g in M do for h in IN do if ts[12]*ts[l]«ts[9]xts[10] 
eq gx (ts[12]*ts[l]*ts[9]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 

for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 

end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[il]; 
end if; end for; 


ts[12]*ts[l]*ts[9]«ts[10] 


eq £(x * t * wx t * vx t * Z)*1 


for g in M do for h in IN do if 


ts[l]xts[7]«ts[12]; 


ts[12]«*«ts[l]«ts[9]*«ts[11] 


eq gx (ts[12]*ts[4])7h 

then A:=g;B:=h; break; end if; end for; end for; 

for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 

end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 

end if; end for; 
ts[12]*ts[1l]«ts[9]*ts[11] eq f(x * z*-1l * v)«ts[7]*ts[1]; 
for g in M do for h in IN do if ts[12]*ts[l]«ts[9]xts[12] 
eq gx(ts[12]*ts[l]*ts[7]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 

for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]*«ts[1l]«ts[9]*«ts[12] 
eq f(w*x t * wx t *« v «x t)xts[8]x*ts[2]«ts[4]; 

/x [12 1 10] x/ 


for g in M do for h in IN do if ts[12]*ts[l]«ts[10]«*ts[1] 


eq gx(ts[12]*ts[4])7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[il]; 
end if; end for; 

ts[12]*«ts[1l]«ts[10]«*«ts[1] 

eq f(yxteyxtxwez>-Lxtxzatez>-Letxzet) xts[3]*ts[10]; 
for g in M do for h in IN do if ts[12]*ts[l]«ts[10]«ts[2] 
eq gx(ts[12]*ts[l]*ts[8]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]*«ts[1l]«ts[10]*«ts[2] 

eq f(t * x * yx t * y * t)xts[12]«*«ts[l]*«ts[8]; 
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for g in M do for h in IN do if ts[12]*ts[l]«ts[10]«ts[3] 


eq gx(ts[12]*ts[l]*ts[5]*ts[8]) 7h 
then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; end if; 
end for; 
for iin .#G1] do if ArrayP[i] eq B then Sch[i]; end if; 
end for; 
ts[12]*ts[1]«ts[10]*«ts[3] 
eq f(y*z°-lxtxweteyxt*xz°-1)*ts[l]*ts[7]«ts[6]*«ts[5]; 


for g in M do for h in IN do if ts[12]*ts[l]«ts[10]«ts[4] 


eq gx(ts[12]*ts[l]*ts[5]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]*ts[1l]«ts[10]«*«ts[4] 


eq ff (t*xzetxz>-Letezxt 


LxxX*kVAZ —-letewet) «ts[6J*ts[12]«ts[8]; 


for g in M do for h in IN do if ts[12]*ts[l]«ts[10]«ts[5] 


eq gx(ts[12]*ts[l]*ts[5])“h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 

ts[12]*ts[1l]«ts[10]«*«ts[5] 


eq £(x * z xt 


e*vrw t * wre t * z)ets[2] *«ts[9] «ts[4]; 


for g in M do for h in IN do if ts[12]*ts[l]«ts[10]«ts[6] 


eq gx (ts[12]x*ts[l]*ts[5]*ts[6]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 

ts[12]*ts[1l]«ts[10]«*«ts[6] 


eq f (x*z*et*«z°-Lxtx«zxt 


txz°-lxtxzetew) «ts[l]«ts[7]«ts[6]*ts[10]; 


for g in M do for h in IN do if ts[12]*ts[l]«ts[10]«ts[7] 
eq gx (ts[12]*ts[1l]*ts[10])“h 


then A:=g;B:=h; break; 


for i in [1..#G1] do 


end if; end for; end for; 


if ArrayP[i] eq A then Sch[i]; 


196 


end if; 
RO To an 
end if; 


end for; 
[1..#G1] 
end for; 


do if ArrayP[i] eq B then Sch[i]; 


ts[12]«ts[l]«ts[10]*«ts[7] 
eq ff (zxtewrtexvezatxz>—-Letazatxz°>-let) «ts[12]«*«ts[l]*«ts[10]; 


for g in M do for h in IN do if ts[12]*ts[l]«ts[10]«ts[8] 
eq gx (ts[12]*ts[l]*ts[8])“h 

then A:=g;B:=h; break; end if; end for; end for; 

for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 

end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 

end if; end for; 

ts[12]*ts[1]*ts[10]*ts[8] eq f(x)*ts[1ll]*ts[2]«ts[10]; 


for g in M do for h in IN do if ts[12]*ts[l]«ts[10]«ts[9] 


eq gx(ts[12]*ts[1l]*ts[11])“h 

then A:=g;B:=h; break; end if; end for; end for; 

for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; end if; 
end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 

end if; end for; 

ts[12]*ts[1l]«ts[10]*«ts[9] 

eq f(t * wx tx yx t * y)xts[2]*ts[6]«ts[1]; 

for g in M do for h in IN do if ts[12]*ts[l]*ts[10]*ts[11] 
eq gx(ts[12]«*ts[l]*ts[5]*ts[6]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 

for iin [1..#G1] do if ArrayP[i] eq A then Sch[il]; 

end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[il]; 

end if; end for; 
ts[12]*ts[1l]«ts[10]*«ts[11] 

eq f£(z)xts[5]x«ts[7]x«xts[6]*ts[8]; 


for g in M do for h in IN do if ts[12]x*ts[l]*ts[10]«ts[12] 


eq gx (ts[12]*ts[1l]*ts[8]*ts[5]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[il]; 
end if; end for; 

ts[12]*ts[1l]«ts[10]*«ts[12] 


eq f(w*x t * vx t* wrt * Z 


Jats [3] *ts[9] xts[2]*«ts[4]; 
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/x [12 1 11] x/ 


for g in M do for h in IN do if 
eq gx(ts[12]*ts[4]) 7h 
then A:=g;B:=h; break; end if; 


for iin [1..#G1] do if ArrayP[i 


end if; end for; 


for iin [1..#G1] do if ArrayP[i 


end if; end for; 
ts[12]«ts[l]«ts[1l1]«ts[1] 


eq ff (vetez>-Lxtxzatxz>-Letxzxt) * 


for g in M do for h in IN do if 
eq gx (ts[12]*ts[1]*ts[10])“h 
then A:=g;B:=h; break; end if; 


for iin [1..#G1] do if ArrayP[i 


end if; end for; 


for iin [1..#G1] do if ArrayP[i 


end if; end for; 
ts[12]*ts[l]*ts[1l]«ts[3] 
eq f(w * z7>-l x* t *wret*v x 


for g in M do for h in IN do if 
eq gx (ts[12]*ts[l]*ts[9]) 7h 
then A:=g;B:=h; break; end if; 


for iin [1..#G1] do if ArrayP[i 


end if; end for; 


for iin [1..#G1] do if ArrayP[i 


end if; end for; 
ts[12]«ts[l]«ts[1l]«ts[4] 


ts[12]*«ts[1l]«ts[1l1]*«ts[1] 


end for; end for; 
] eq A then Sch[i]; 


] eq B then Sch[i]; 


ts[2]*xts[1l1]; 


ts[12]*ts[l]*ts[1l]*ts[3] 


end for; end for; 
] eq A then Sch[i]; 


] eq B then Sch[i]; 


t)*xts[9]*ts[1ll]«ts[6]; 


ts[12]«ts[l]«ts[1l]«ts[4] 


end for; end for; 
] eq A then Sch[i]; 


] eq B then Sch[i]; 


eq f(x * v * z°-1)x*ts[2]*ts[6]*ts[12]; 


for g in M do for h in IN do if 
eq gx (ts[12]*ts[1l]*ts[11])“h 
then A:=g;B:=h; break; end if; 


for iin [1..#G1] do if ArrayP[i 


end if; end for; 


for iin [1..#G1] do if ArrayP[i 


end if; end for; 
ts[12]«ts[l]*«ts[1l]«ts[7] 
eq f(x * z*-1 * v)x*ts[1l]*ts[2]* 


for g in M do for h in IN do if 


ts[12]*ts[l]*ts[1l]*ts[7] 


end for; end for; 
] eq A then Sch[i]; 


] eq B then Sch[i]; 


ts[12]; 


ts[12]*ts[l]*ts[1l]*ts[8] 
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eq gx (ts[12]*ts[l]*ts[8]) 7h 

then A:=g;B:=h; break; end if; end for; 
for iin [1..#G1] do if ArrayP[i] eqA 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B 
end if; end for; 
ts[12]«ts[l]«ts[1ll]«ts[8] 
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end for; 
then Sch[i]; 


then Sch[i]; 


eq ff (x*tez > -Lxtezetxz>-Letazavetewet) xts[3]*ts[6]«ts[2]; 


/*x [12 4] 


*/ 


for g in M do for h in IN do if ts[12]*ts[4]x«*ts[1] 
eq gx(ts[12]*ts[1l]*ts[7]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]*«ts[4]*ts[1] 


eq f(w x t * wx t * vx t * Z)*1 


for g in M do for h in IN do if 


eq gx(ts[12]*ts[l]*ts[9]) 7h 

then A:=g;B:=h; break; end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq A 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B 
end if; end for; 
ts[12]*«ts[4]*ts[2] 


eq f(x * z * v)xts[1l]*ts[4]«*ts[1] 


Ll; 


ts[3]*ts[4]*ts[8]; 


ts[12]*ts[4]*ts[2] 


end for; 
then Sch[i]; 


then Sch[i]; 


for g in M do for h in IN do if ts[12]*ts[4]«ts[3] 


end for; 


then Sch[i]; 


then Sch[i]; 


eq gx(ts[12]*ts[1])7h 

then A:=g;B:=h; break; end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq A 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B 
end if; end for; 
ts[12]*ts[4]«ts[3] eq f£(zxw)*ts[4]«ts[12]; 


for g in M do for h in IN do if ts[12]*ts[4]«ts[5] 
eq gx(ts[12]*ts[l]*ts[4]) 7h 


then A:=g;B:=h; break; 


for i an 


[1..#G1 


end if; 
] do if ArrayP[i] 


end for; 


end for; 


eq A then Sch[i]; 
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end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[il]; 
end if; end for; 

ts[12]*ts[4]*ts[5] eq f(x * z * w)*ts[6]*ts[11]*ts[3]; 


for g in M do for h in IN do if ts[12]*ts[4]«ts[6] 
eq gx(ts[12]*ts[4])7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]«*ts[4]«ts[6] eq f£(x)«*ts[1ll1l]x«ts[4]; 


for g in M do for h in IN do if ts[12]*ts[4]*ts[7] 
eq gx (ts[12]*ts[l]*ts[5]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[il]; 
end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]*«ts[4]*ts[7] 

eq f(x * t x wx t * vx*x t * z)xts[3]x«xts[4]*«ts[9]; 


for g in M do for h in IN do if ts[12]*ts[4]«ts[8] 
eq gx (ts[12]*ts[1l]*ts[8])“h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]*«ts[4]*ts[8] 

eq ff (txxeyxtxy*xzatez>-Letazetxz>-let) xts[9]*ts[8]«ts[4]; 


for g in M do for h in IN do if ts[12]x«ts[4]«ts[9] 
eq gx(ts[12]*ts[1])7*h 
then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]*ts[4]*ts[9] 
eq f(y * t * wx tx* yx t * z)xts[5]xts[6]; 
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for g in M do for h in IN do if ts[12]x*ts[4]«ts[10] 


eq gx(ts[12]xts 


[l]*ts[10])*h 


then A:=g;B:=h; 


for iin [1..#G1] 


end if; end for; 


for iin [1..#G1] 


end if; end for; 
ts[12]«ts[4]«ts 


break; end if; end for; end for; 
do if ArrayP[i] eq A then Sch[i]; 


do if ArrayP[i] eq B then Sch[i]; 


[10] 


eq f(yxteyxt*xzevetez>-Letezetxz>-let) xts[7]*ts[10] «ts[4]; 


for g in M do for h in IN do if ts[12]x*ts[4]«ts[11] 


eq gx(ts[12]xts 


[1l]*ts[11])*h 


then A:=g;B:=h; 


for iin [1..#G1] 


end if; end for; 


for iin [1..#G1] 
end if; end for; 
ts[12]*«ts[4]«ts[ 


break; end if; end for; end for; 
do if ArrayP[i] eq A then Sch[i]; 


do if ArrayP[i] eq B then Sch[i]; 


11] eq f£(x)«ts[4]*ts[12]«ts[6]; 


for g in M do for h in IN do if ts[12]x*ts[4]«ts[12] 


eq gx(ts[12]xts 


[4]) 7h 


then A:=g;B:=h; 


for iin [1..#G1 


end if; end for; 


for i in [1..#G1 
end if; end for; 
[12] 


ts[12]xts[4]«ts 


break; end if; end for; end for; 
] do if ArrayP[i] eq A then Sch[il; 


] do if ArrayP[i] eq B then Sch[il]; 


eq f (x*wetxzxtxz°>-Latxzetez>—-lxt) «ts[12]«ts[4]; 


[12° T5837] 


for g in M do for h in IN do if ts[12]*ts[l]«ts[5]x«ts[8]*ts[1] 


eq gx(ts[12]xts 
then A:=g;B:=h; 


1lj*ts[5]*xts[8])*h 


for iin [1..#G1 


end if; end for; 


for i in [1..#G1 


end if; end for; 


break; end if; end for; end for; 
] do if ArrayP[i] eq A then Sch[il; 


] do if ArrayP[i] eq B then Sch[il; 


for g in M do for h in IN do if ts[12]x*ts[l]«ts[5]x«ts[8]*ts[2] 


eq gx(ts[12]xts[ 
then A:=g;B:=h; 


1j*ts[5]xts[8])*h 


break; end if; end for; end for; 


for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 


end if; end for; 


for i in [1..#G1] 
end if; end for; 

ts[12]*ts[1l]*ts[5 
eq f£(zxt*z7>-1Llxtx*z 


for g in M do for 
eq gx(ts[12]xts[1 
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do if ArrayP[i] eq B then Sch[i]; 


J«ets[8]*«ts[2] 


*kt*z°-letx*xzx«t) x«ts[12]*«ts[l]«ts[5]*«ts[8]; 


h in IN do if ts[12]«ts[l]«ts[5]«ts[8]«ts[3] 


Jxts[5]*ts[9]) 7h 


then A:=g;B:=h; 
for i in [1..#G1] 
end if; end for; 
for i in [1..#G1] 
end if; end for; 
ts[12]«ts[l]«ts[5 
eq f(y*zetez>-let 


break; end if; end for; end for; 
do if ArrayP[i] eq A then Sch[i]; 


do if ArrayP[i] eq B then Sch[i]; 


xts[8]«ts[3] 
AZKCKZ —-Lxtxzewetxyxt) * 


for g in M do for 
eq gx(ts[12]xts[1 
then A:=g;B:=h; 


ts[ll]«ts[2]x«ts[3] 


xts[7]; 


h in IN do if ts[12]«ts[l1]«ts 
xts[5]x*ts[9]) 7h 


for iin [1..#G1] 
end if; end for; 
for iin [1..#G1] 
end if; end for; 


a 


eq f£(yxtezxtxz>-1 
ts[9]*«ts[12]x«ts[8 


ts[12]«ts[l]«ts[5] 


break; end if; end for; end for; 
do if ArrayP[i] eq A then Sch[ 


do if ArrayP[i] eq B then Sch[ 


xts[8]«ts[4] 
ACKZaCKY*Z > —Letxwet) * 
xts[2]; 


h in IN do if ts[12]«ts[1l]x«ts 
xts[8]xts[5]) 7h 


break; end if; end for; end for; 


ts[12]x*ts[1l]«ts[5 


do if ArrayP[i] eq A then Sch 


do if ArrayP[i] eq B then Sch[ 


]xts[8]«ts[5] 


[5] 


i] 


[5] 


[i] 


«ts[8]«ts[4] 


xts[8]x*ts[5] 


eq f£ (x*tezxtxz°-Latxzxtevez > -lLetevet) «ts[2]*«ts[9] *«ts[3]*«ts[4]; 


for g in M do for h in IN do if ts[12]*ts[l]«ts[5]xts[8]*ts[6] 


eq gx(ts[12]xts[1 


]*ts[9])*h 


then A:=g;B:=h; 
for i in [1..#G1] 
end if; end for; 
for i in [1..#G1] 
end if; end for; 


break; end if; end for; end for; 
do if ArrayP[i] eq A then Sch[i]; 


do if ArrayP[i] eq B then Sch[i]; 
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ts[12]«ts[l]*«ts[5]«ts[8]«ts[6] 
eq ff (zxtewret*xvezetez>-Letezetxz°>-let) xts[5]*«ts[9]*«ts[10]; 


for g in M do for h in IN do if 
ts[12]*ts[1l]«ts[5]«*«ts[8]*ts[10] eq gx (ts[12]*ts[1l]*ts[10])“h 
then A:=g;B:=h; break; end if; end for; end for; 


for iin [1..#G1] do if ArrayP[i] eq A then Sch[il]; 
end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[il]; 


end if; end for; 
ts[12]«ts[l]*«ts[5]«*«ts[8]«ts[10] 
eq f(t * wx tx vx t * z)xts[9]xts[12]*ts[6]; 


/x* ft2. aL. 5s 29) x / 


for g in M do for h in IN do if 
ts[12]«ts[l]«ts[5]*«ts[9]«ts[1] 

eq gx(ts[12]*ts[l]*ts[5]*ts[8]*ts[1]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 


for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 


end if; end for; 
ts[12]«ts[l]«ts[5]«ts[9]«ts[1] 
eq £(yxtxzatuz°-Lxtxzxtxyxz > -Letxwet) 
ts[2]*«ts[4]x*«ts[9]«ts[3]*ts[4]; 


for g in M do for h in IN do if 
ts[12]«ts[l]«ts[5]«ts[9]«ts[2] 

eq gx(ts[12]*ts[l]*ts[5]*ts[9]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 


for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 


end if; end for; 
ts[1l2]«ts[l]«ts[5]«ts[9]«ts[2] 

eq f (y*zxt ez > -Latxzxtxz > -Letxyrzxt wet) * 
ts[12]«ts[l]«ts[5]«ts[9]; 


for g in M do for h in IN do if 
ts[12]«ts[l]«ts[5]«ts[9]«ts[3] 

eq gx(ts[12]*ts[1l]*ts[8]*ts[5]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
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end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[il]; 

end if; end for; 

ts[12]«ts[l]«ts[5]*«ts[9]«ts[3] 

eq f(z * wx tx*xvxt * w * t)xts[2]xts[9] *«ts[3] *«ts[4]; 


for g in M do for h in IN do if 
ts[12]«ts[l]«ts[5]«ts[9]*«ts[5] 

eq gx (ts[12]«*ts[l]*ts[5]*ts[8]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[il]; 
end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]«ts[l]«ts[5]*«ts[9]*«ts[5] 


A 


eq Ely*zxtrz 
ts[ll]«ts[2]*«ts[3]«ts[10]; 


—Lxtxzxtez>-Latxzewetxyxt) * 


for g in M do for h in IN do if 
ts[12]«ts[l]«ts[5]«ts[9]«ts[6] 

eq gx(ts[12]*ts[l]*ts[8]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]*«ts[l]*ts[5]*«ts[9]«ts[6] 

eq f(v * z*-1)*«ts[6]*«ts[10]*«ts[7]; 


for g in M do for h in IN do if 
ts[12]«ts[l]«ts[5]«ts[9]«ts[8] 

eq gx(ts[12]x*ts[l]*ts[5]*ts[8]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 


for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 


end if; end for; 
ts[12]«ts[l]«ts[5]«ts[9]«ts[8] 

eq £(xxt*z>-Latxzxtxz > -Lxtxzevetawet) x 
ts[l]«ts[7]«ts[6]*ts[5]; 


for g in M do for h in IN do if 
ts[12]*ts[l]«ts[5]xts[9]*ts[10] 
eq gx(ts[12]*ts[l]*ts[9]) 7h 


nd. at} 
do if ArrayP[i] 


do if ArrayP[i] 


then A:=g;B:=h; break; 

for i in [1..#G1] 

end if; end for; 

for i in [1..#G1] 

end if; end for; 
ts[12]*ts[l]«ts[5]x«ts[9]*ts[10] 
eq f(z°-1)x*ts[4]*ts[1l]«ts[5]; 
/x* [12 8 5] x / 


for g in M do for h in IN do if 


«ts[5]«ts[2] 
xts[5]«xts[6]) 7h 


end for; 
then Sch[i]; 


eq A 


eq B 


end for; 


then Sch[i]; 


n A:=g;B:=h; break; end if; end for; end for; 


ts[12]*«ts[1l]*ts[8] 
eq gx(ts[12]xts[1] 
aset 

for i in [1..#G1] 
end if; end for; 
for i in [1..#G1] 
end if; end for; 
ts[12]*«ts[1l]*ts[8] 


do if ArrayP[i] 


do if ArrayP[1i] 


«ts[5]«ts[2] 


eq A 


eq B 


then Sch[i]; 


then Sch[i]; 


eq f(x * z * v)xts[1l]xts[2]*ts[3]«ts[4]; 


for g in M do for h in IN do if 


ts[12]*«ts[l]*ts[8]«*«ts[5]«ts[4] 

eq gx (ts[12]«*ts[1l]*ts[5]*ts[6]) 7h 

then A:=g;B:=h; break; end if; end for; 
for iin [1..#G1] do if ArrayP[i] eqA 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B 
end if; end for; 
ts[1l2]xts[l]«ts[8]«ts[5]«ts[4] 

eq f£ (x*tewretexvez > -Latxzetez>-Lxtxzet) * 
ts[12]«ts[5]*«ts[1]«ts[9]; 


for g in M do for h in IN do if 


eq A 


eq B 


end for; 


then Sch[i]; 


then Sch[i]; 


then Sch[i]; 


then Sch[i]; 


txzetez~ -lxtxzet) * 


ts[1l2]«ts[l]«ts[8]«ts[5]«ts[6] 

eq gx (ts[12]*ts[1l]*ts[10])“h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] 

end if; end for; 

for iin [1..#G1] do if ArrayP[i] 

end if; end for; 

ts[12]«ts[l]«ts[8]«ts[5]«ts[6] 

eq f£(y*z°-lLxtxyxtxwez*-lxt 

ts[6J*ts[10]«ts[9]; 
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for g in M do for h in IN do if 


eq A 


eq B 
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then Sch[i]; 


then Sch[i]; 


ts[12]«ts[l]«ts[8]«ts[5]«ts[8] 

eq gx (ts[12]x*ts[1l]*ts[5]*ts[9]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] 

end if; end for; 

for iin [1..#G1] do if ArrayP[i] 

end if; end for; 

ts[12]«ts[l]x«ts[8]xts[5]*ts[8] 


eq f(y * t * yx t * wx 


for g in M do for h in IN do if 


ts[12]x«ts 
eq gx(ts[l 
th 


[1]» 


ts 


2]x*ts 


[8]*«ts[5]* 
1]*ts[5]* 


ts[10] 
ts[8]) 7h 


for i in 
end 
for 


end 


i in 
IEE; 


eq fl(yx«txz 


ts[7]«ts[1l 


lj*ts 


“-JTatezxtxz°>-lxt 


|* 


Cs 


L..#G1 
if; end for; 
[1..#G 
end for; 
ts[12]«ts[] 


1] 


] do if ArrayP[i] 


do if ArrayP[i] 


[8] xts[5]*ts[10] 


[10J*ts[6]; 


for g in M do for h in IN do if 


eq A 


eq B 


tLxyxzxtxwt) x 


t)«xts[7]*xts[ll]*ts[10]«ts[1]; 


n A:=g;B:=h; break; end if; end for; end for; 
1 then Sch[i]; 


then Sch[i]; 


ts[12]«ts[l]«ts[8]*«ts[5]*«ts[11] 

eq gx (ts[12]x*ts[l]*ts[8]*ts[5]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 

ts[12]«ts[l]«ts[8]«ts[5]*ts[11] 

eq £(x)*ts[12]*«ts[5]*«ts[8]xts[1]; 

for g in M do for h in IN do if 
ts[12]«ts[l]«ts[8]*«ts[5]*«ts[12] 

eq gx(ts[12]*ts[l]*ts[5]*ts[8]*ts[1]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 

ts[12]«ts[l]«ts[8]xts[5]*ts[12] 


eq f£(z*xt*z~-Lxtx«ze 
ts[l]*ts[4]«ts[9]* 


/* PZ. ale 35.64] 


* 


for g in M do for 


txx*xwez° -letezetxwet) 
ts[S]«*«ts[4]; 


/ 


h in IN do if 
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* 


ts[12]«ts[l]«ts[5]«ts[6]*«ts[1] 

eq gx(ts[12]x*ts[1l]*ts[8]*ts[5]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]*ts[l]*ts[5]*«ts[6]*ts[1] 

eq f(x * v * z°-1)x*ts[1ll]*ts[2]«ts[10]*ts[3]; 


for g in M do for 


h in IN do if 


ts[12]*«ts[l]*ts[5]«*«ts[6]*«ts[2] 

eq gx (ts[12]*ts[l]*ts[8])“h 

then A:=g;B:=h; break; end if; end for; 
for iin [1..#G1] do if ArrayP[i] eqA 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B 
end if; end for; 
ts[12]*«ts[1l]*ts[5]«*«ts[6]*«ts[2] 


end for; 
then Sch[i]; 


then Sch[i]; 


eq ff (txxxwxt*zevet*z>-Lxtezxtxz°>-let) xts[1l2]*«ts[5]«ts[8]; 


for g in M do for 


h in IN do if 


ts[1l2]«ts[l]«ts[5]«ts[6]«ts[3] 

eq gx (ts[12]*ts[l]*ts[5]) 7h 

then A:=g;B:=h; break; end if; end for; 
for iin [1..#G1] do if ArrayP[i] eqA 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B 
end if; end for; 
ts[12]*«ts[l]*ts[5]*«ts[6]*«ts[3] 


eq f(x * zxt 


for g in M do for h in IN do if 


ts[12]*«ts[1l]«ts[5] 
eq gx(ts[12]xts[1] 


x«ts[6]«ts[4] 
«ts[8])7h 


then A:=g;B:=h; b 
[1..#G1] 
end for; 


for i in 
end if; 


do if ArrayP[i] 


reak; end if; 


end for; 
eq A then Sch[i]; 


end for; 
then Sch[i]; 


then Sch[i]; 


*we it *« v * t)xts[3] *«ts[7]«ts[6]; 


end for; 


FOr 
end 
ts 


eq 


iin 
af 


[1l..#G1] 


end for; 


[12] *ts[l]*ts[5]*ts[6]* 


f(z * t * wet * vk 


do if ArrayP[i] 


ts[4] 
* x)*ts[10]*ts[3]*ts[11]; 


for g in M do for h in IN do if 


ts[12]«ts[l]«ts[5]«ts[6]«ts[5] 

eq gx (ts[12]*ts[1l]*ts[10])“h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i] 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i] 
end if; end for; 

ts[12]*ts[1l]*ts[5]*«ts[6]*ts[5] 

eq f£ (x*xt*z7-Lxtxzetxz>-Lxtezxtxw) *ts[9]*ts[12] «ts 


for g in M do for h in IN do if 
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eq B then Sch[i]; 


ts[12]«ts[l]«ts[5]«ts[6]«ts[7] 

eq gx (ts[12]*ts[l]*ts[8]*ts[5]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 

ts[12]«ts[l]«ts[5]*«ts[6]«ts[7] 

eq £(tx zZ7-Lxtxzetxxxwez>-Lxetxzxtxwet) * 
ts[12]«ts[5]*«ts[8]x«ts[1]; 

for g in M do for h in IN do if 
ts[12]*«ts[l]«ts[5]x«ts[6]*ts[8] 

eq gx(ts[12]*ts[l]*ts[7]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 
for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[il]; 
end if; end for; 
ts[12]«ts[l]«ts[5]*«ts[6]«ts[8] 

eq f(w*x t * wx t *« v * t * z)xts[7]xts[1ll]«ts[2]; 


for g in M do for h in IN do if 


ts[12]x«ts[l]«ts[5]x«ts[6]*ts[9] 
then A:=g;B:=h; break; 
[1..#G1] 


for 
end 


i in 
al 


end for; 


end if; 
do if ArrayP[i] 


end for; end for; 


eq gx«x(ts[12]x*ts[1]*ts[10]) 7h 


eq A then Sch[i]; 


for i in 
end if; 

ts 
eq 


e 


[1..#G1] 
nd for; 


do if ArrayP[i] 


[12] «*«ts[l]*ts[5]«ts[6] 
f(z°-1 * v)x«ts[7]*ts 


xts[9] 


[8] «ts[4]; 


for g in M do for h in IN do if 


ts[12]x«ts 


eq gx(ts[1l 


th 


1]* 
2]* 


[5] 
[1] 


ts 


ts 


* 


* 


ts[6] 


ts[5] 


«ts[10] 
*xts[6]) 7h 


as ale 
Ee 
i in 
a 


for 
end 
for 
end 


S 


e€ 


ts[12]x«ts[ 


1..#G1] 
nd’ £or; 
[1..#G1] 
nd for; 
lj*ts 


do if ArrayP 


[S]xts[6]*«ts[10] 
eq £(z°-1l*t*xxyx*xtxy*t*z°-1)x*ts 


i] 


i] 


for g in M do for h in IN do if 


[5] xts[6]*ts[11] 


ts[12]«ts[l]*ts 

for iin [1..#G1] 
end if; end for; 
for i in [1..#G1] 
end if; end for; 
ts[12]«ts[l]*ts 

eq f£ (v«xtx«zxtxz>- 


do if ArrayP 


[5] *ts[6]*«ts[11] 
Latezextxz°-1l«t)«ts[10]«ts[3]«ts[6]; 


i] 


i] 


for g in M do for h in IN do if 
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eq B then Sch[i]; 


eq A 


eq B 


eq A 


eq B 


n A:=g;B:=h; break; end if; end for; end for; 


do if ArrayP then Schf[i] 


then Sch[i] 
12]*ts[5]*ts[l]«ts[ 


eq gx (ts[12]«ts[1] 
then A:=g;B:=h; break; end if; end for; end for; 


do if ArrayP then Sch[i] 


then Sch[i] 


ts[12]*ts[1l]*«ts[5]«*«ts[6]*ts[12] 

eq gx(ts[12]*ts[l]*ts[9]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 

for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 
end if; end for; 
ts[12]*«ts[1l]*ts[5]«*«ts[6]*ts[12] 
eq f£(t*z>-lLatxzetez>—-Latezevaetaxwet) ets [5] «ts[6]*«ts[8]; 
/x* fT 2 A S28. 1] x / 


for g in M do for h in IN do if 


ts[12]x«ts 
eq gx(ts[ 


[1] * 


ts[5]«ts[8]* 
12]*ts[l]«ts[8]* 


ts[5]) 7h 


then A:=g;B:=h; break; 


for i an 


[1l..#G1] 


end if; 


do if ArrayP[i] 


ts[l]«ts[4] 


end for; 


end for; 


eq A then Sch[i]; 
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end if; end for; 

for iin [1..#G1] do if ArrayP[i] eq B then Sch[il]; 
end if; end for; 

ts[1l2]«ts[l]«ts[5]*«ts[8]*ts[l]«ts[4] 

eq f(t * vx t * wx t * z)xts[4]xts[12]*«ts[9]«ts[8]; 


for g in M do for h in IN do if 
ts[12]*«ts[l]«ts[5]x«ts[8]*ts[1l]«ts[8] 

eq gx (ts[12]*ts[1l]*ts[5]*ts[9]) 7h 

then A:=g;B:=h; break; end if; end for; end for; 


for iin [1..#G1] do if ArrayP[i] eq A then Sch[i]; 
end if; end for; 
for iin [1..#G1] do if ArrayP[i] eq B then Sch[i]; 


end if; end for; 
ts[12]«ts[l]«ts[5]*«ts[8]*ts[l]«ts[8] 


eq £ (tevatazavat xz > -Lxtxzxt%z>-Let*x) x 
ts[6]*ts[8]«ts[12]«ts[1]; 


+ 
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Appendix C 


Magma Code Maximal DCE 
U4(2) : 2 


/* ===Determining suitable Maximal Subgroup of U_4(2) : 2S === 
x / 


/* Same method as M_12 */ 


S m ( 

X:=S!(1, 2) (3, 5) (4, 8) (6, 9) (7, 11) (10, 12); 
Y:=S!(1, 3) (2, 5) (4, 7) (6, 10) (8, 11) (9, 12); 
Z:=S!(3, 5) (7, 10) (11, 12); 

W:=S!(1, 2) (3, 5) (4, 6) (7, 10) (8, 9) (11, 12); 
VeqsWi(hy 45. -9) (23 63. -8)--03,. 7 12). 209. Tb); 
N b 


£,N1,k:=CosetAction(N, sub<N|Id(N)>); 


NL:=NormalLattice(N); 


/* N= 12 : 272 x/ 

for iin [1..25] do if IsAbelian(NL[i]) then i; 
end if; end for; 
IsIsomorphic(NL[15],CyclicGroup (12) ); 


g, ££:=quo<N|NL[15]>; 

NLgq:=NormalLattice(q) ; 
E:=DirectProduct (CyclicGroup (2) ,CyclicGroup (2)); 
IsIsomorphic(q,E); 


G<x,y,Z,W,vV,t>:=Group<x, y,Z,w,v,t|x°2,y°2,Z2°2,Ww 2,V°3,Y X=Y, 


Z°X=Z,Z° Y=Z*W,W X=W, W Y=W, W° Z=W, V° X=V°2,V° y=vV,V Z=V, 
vow=v,t°2, (t,z*w), (t,x*wkv), (wev>-1«t) 5, (x*xt) “6, (y*t) °3, 
(xxwet) 74, (K*z*yxt) 79>; 


£,G1,k:=CosetAction (G, sub<G|x,y,Z,W,V>) ; 
#DoubleCosets (G, Sub<G|x,y,Z,W,V>, SUD<G|X,Y,Z,W,V>) ; 
M:=MaximalSubgroups (G1); 


for iin [1..6] do #M[i]* subgroup; end for; 
G1,M[1] ‘subgroup);/* works 1296 «/ 
Gl 


L,M[5] ‘subgroup); /* works 1920 x«/ 


C:=Conjugates 
C:=Conjugates 


( 
( 


C:=Conjugates (G 
CC:=Setseq(C); 


L,M[5] ‘subgroup) ; 


for 1. in [Lse.tCC] do if £ (x) an CC [i] and £(y) 2n CC[i] 
and f(z) in CC[i] and f(w) in CC[i] and f(v) in CC[i] then i; 
end if; end for; 


for g in Gl do if Order(g) eq 2 and 
CC[27] eq sub<Gl1|f(x),fly),f(z),f£(w),f(v),g> 
then A:=g; break; end if; end for; 


W,phi:=WordGroup (G1); 
rho:=InverseWordMap (G1) ; 


A@rho; 

function (W) 
w7 := W.5 * W.4; w8 := W.2 * w/; w9 := w7 * W.1; wl0 
:= w8 * w9; wll := W.6 * W.2; wl2 := wl0 * wll; wl3 
:= w9 * W.4; wl4 := wl2 * wl3; wl5 := wl3 *« wll; wl16 
:= wl4 * wl5; wl7 := wl5 * W.3; wl8 := wl6 * wl7; wil9 
:= W.6 * W.1; w20 := wl8 * wl9; w21 := w9 * wl7; w22 
:= w20 * w21; w23 := w9 * wl9; w24 := w22 * w23; w25 
:= w23 * wll; w26 := w24 * w25; w27 := wll * w21; w28 
:= w26 * w27; w29 := wl5 * w21; w30 := w28 * w29; w3l1 
:= w29 * w25; w32 := w30 * w3l1; w33 := w3l1 * wl5; w34 
= w32 * w33; w35 := wl9 * w29; w36 := w34 * w35; w37 
:= w27 * wl9; w38 := w36 * w37; w39 := w3l1 * W.6; w40 
:= w38 * w39; w4l := w39 * w37; w42 := w40 * w41; w43 
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= w35 * W.6; w44 := w42 * w43; w45 := w39 *« w41; w46 
= w44 *« w45; w47 := w39 * w45; w48 := w46 *« w47; w49 
:= w47 * W.6; w50 := w48 * w49; w51l := w33 * w39; w52 
:= w50 * wSl; w53 := w39 * w51l; w54 := w52 * w53; w55 
= wol *« w49; w56 := w54 * w55; w57 := w53 * wl9; w58 
= w56 * wO7; w59 := w57 * w49; w60 := w58 * w59; w6l 
:= w53 * W.6; w62 := w60 * w6l; w64 := w62 * W.1; w63 
:= w62°-1; w65 := 64 * w63; return w65; 

end function; 

AA:=function(W); 

w7 := W.5 * W.4; w8 := W.2 * wl; w9 w7 * W.1; wl0 

:= w8 * w9; wll := W.6 * W.2; wl2 wlO * wll; wl3 
:= w9 * W.4; wl4 := wl2 * wl3; wil5 wl3 * wll; wl6 
:= wl4 * wl5; wl7 := wl5 * W.3; wl8 := wl6 * wl7; wil9 
:= W.6 * W.1; w20 := wl8 * wl9; w21 := w9 * wl7; w22 
:= w20 * w21; w23 := w9 * wl9; w24 w22 * w23; w25 
:= w23 * wll; w26 := w24 * w25; w27 := wll * w21; w28 
:= w26 * w27; w29 := wl5 * w21; w30 := w28 * w29; w3l1 
:= w29 * w25; w32 := w30 * w3l1; w33 := w3l1 * wl5; w34 
:= w32 * w33; w35 := wl9 * w29; w36 := w34 * w35; w37 
:= w27 * wl9; w38 := w36 * w37; w39 := w3l1 * W.6; w40 
:= w38 * w39; w4l := w39 * w37; w42 := w40 * w41; w43 
:= w35 * W.6; w44 := w42 x w43; w45 := w39 *« w4l1; w46 
:= w44 * w45; w47 := w39 *« w45; w48 := w46 * w47; w49 
:= w47 * W.6; w50 := w48 *« w49; w51 := w33 * w39; w52 
:= w50 * wl; w53 := w39 * w51l; w54 := w52 * w53; w55 
:= wOl * w49; w56 := w54 * w55; w57 := w53 * wl9; w58 
:= w56 * wO7; w59 := w57 * w49; w60 := w58 * w59; w6l 
:= w53 * W.6; w62 := w60 * w6l; w64 := w62 * W.1; w63 
:= w62°-1; w65 := 64 * w63; return w65; 

end function; 

AA(G); 

NN:=G1; 

Sch:=SchreierSystem(G, sub<G|Id(G)>); 

ArrayP:=[Id (NN): i in [1..#G]]; 

for i in [2..#NN] do 

=[Ta@ (NN): Ll in “[1l..#Seh[1)11; 

for j in [1..#Sch[i]] do 

if Eltseq(Sch[il) [4] eq 1 then P[j]:=f(x); end if; 

if Eltseq(Sch[i])[j] eq 2 then P[j]:=f(y); end if; 

if Eltseq(Sch[i])[j] eq 3 then P[j]:=f(z); end if; 
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if Eltseq(Sch[i])[j] eq 4 then P[j]:=f(w); end if; 

if Eltseq(Sch[i])[j] eq 5 then P[j]:=f(v); end if; 

if Eltseq(Sch[i]) [3] eq -5 then P[j]:=f(v"-1); end if; 
if Eltseq(Sch[i])[j] eq 6 then P[j]:=f(t); end if; 

end for; 


PP:=Id (NN); 

for k in [1..#P] do 
PP:=PP*P[k]; end for; 
ArrayP[i]:=PP; 
end for; 


for iin [1..#N] do if ArrayP[i] eq f(AA(G)) then Sch[i]; 
end if; end for; 
/x* t * X * yrewret x vo-l *« t * y * vo-1l *« t «/ 


#sub<G1|/f(x),f(y),f£(z),f£(w),f(v), 
£ (KATA KAT RYH ZAVACKYRVAT HY RV ACRV) >] 


J:=M[5] ‘subgroup; 
L:=sub<Gl|f(x),f(y),f£(z),f£(w),f£(v), 
£ (XAT AX AC KYA ZAVAC KY AVAC HY AVE RV) OF 


IsIsomorphic(J,lL); 


M:=sub<G|X, V, 2, Wy, Vp XKCKXACKYVRZEVAC KY HVAC KY AVEC RVD; 
#DoubleCosets (G,M, sub<G|x,y,Z,W,V>) ; 


*/ 


G<x,y,Z,W,vV,t>:=Group<x, y,Z,w,v,t|x°2,y°2,Z2°2,w 2,V°3,Y X=Y, 


Z°X=Z,Z° Y=Z*W,W° X=W,W Y=W, W° Z=W, V° X=V°2,V° y=vV,V Z=V, 
vow=v,t°2, (t,z*w), (t,x*wkv), (wev>-1«t) “5, (x*xt) “6, (y*t) 3, 
(xxwet) 74, (k*zZ*yxt) 79>; 


£,G1,k:=CosetAction (G, sub<G|x,y,Z,W,V>) ; 


S:=Sym(12); 

X:=S!(1, 2) (3, 5) (4, 8) (6, 9) (7, 11) (10, 12); 
Y:=S!(1, 3) (2, 5) (4, 7) (6, 10) (8, 11) (9, 12); 
42%=S!-(3, 5) (7, 10) (11, 22); 

W:=S! (1, 2) (3, 5) (4, 6) (7, 10) (8, 9) (11, 12); 
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V:=S!(1, 4, 9) (2, 6, 8) (3, 7, 


N:=sub<S|X,Y,Z,W,V>; 


HH: =Sub<G|X, VY, Z, Wy, Vy XECHKAC KVR ZAEVAC HV AVEC KV RV EC RVO; 


12) (5, LO; 


IN:=sub<G1|f(x),f(y),f£(z),f£(w),f(v) >; 
M:=sub<G1/f(x),f(y),f£(z),f(w),f(v), 
£(X, Vp Zy Wy Vy XKCKKAC KYA ZAVAC KV RVAC KY AVAERKV) >; 


ts := [ Id(G1) i in [1 
ts[12]:=f£(t); 
ts[l]:=f(t* (vey) ); 
ts[2]:=f (t* (vey*x)); 
ts[3]:=£(t* (v)); 
ts[4]:=f(t* (y*v"2)); 
ts[5]:=f£(t* (wv) ); 
Es [6] 2=f£ (0 (y*x)) 7 
ts[7]:=f£(t* (v*2)); 
ts[8]:=f(t* (wey) ); 
ES sant ye 
ts[10]:=£(t* (x)); 
Es TLL) 26 (GG) ) 7 


]; 


Tl) 
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#DoubleCosets (G, SUD<G|X, VY, Z, Wy, Vp XKCKXAC KYA ZEVAC KV AV AE RKYV AVAL KV, 


sub<G|xX,V,Z,W,V>) ; 


DoubleCosets (G, SUD<G|X, VY, Z, Wy, Vy XKCKKAC KYA ZAVAC HV AVAC KY AVEC KV, 


sub<G|X,V,Z,W,V>); 


prodim := function(pt, Q, 
vi:= pt; 
for: 1 an: .I-.do 
vse ow (O11 1) y 
end for; 


return v; 
end function; 


cst := [null : i in [1 
where null is [Integers () 
for 1 2= 1. to 12 do 
cst[prodim(l1, ts, 
end for; 
m:=0; 


for iin [1..1080] do if cst[i] 


end if; end for; m; 
Orbits (N); 


I) 


Index (G, sub<G|x,y,Z,w,v>) ] ] 


| |; 


[i1)] 


HS 


[ads 


[] then m:=m+1; 


/x [12] x/ 


N12:=Stabiliser(N,12); 
SSS:={[12]}; SSS:=SSS°N; 
# (SSS) ; 
Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 
for n in M do 

if ts[12] eg 

n*ts [Rep (Seqq[i]) [1] ] 
then print Rep(Seqq[i]); 
end if; end for; end for; 
N12s:=N12; 


for g in N do if 12°g eq 11 then 
N12s:=sub<N|N12s,g>; end if; end for; 
#N12s; N12s; 


T12:=Transversal(N,N12s); 

for a any [Ls .4T12]\-do 

ss:=[12]°T12[i]; 

cst[prodim(l, ts, ss)] := ss; 

end for; 

m:=0; for iin [1..1080] do if cst[i] ne 
then m:=m+l; end if; end for; Mm; 

Orbits (N12s); 


/x [12 1] x/ 


N121:=Stabiliser(N12,1); 
SSS:={[12,1]}; SSS:=SSS°N; 
# (SSS) ; 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in M do 

if ts[12]xts[1] eg 

nxts [Rep (Seqq[i]) [1] ]*ts[Rep(Seqq[i]) [2]] 
then print Rep(Seqq[i]); 
end if; end for; end for; 
N121s:=N121; 


for g in N do if 12°g eq 11 and 1*g eq 1 then 


N121s:=sub<N|N121s,g>; end if; end for; 
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for g in N do if 12°g eq 12 and 1*g eq 4 then 
N121s:=sub<N|N121s,g>; end if; end for; 

for g in N do if 12°g eq 11 and 1*g eq 4 then 
N121s:=sub<N|N121s,g>; end if; end for; 
#N121s; N121s; 


T121:=Transversal (N,N121s); 
for i in [1..#T121] do 
ss:=[12,1]°T121[i]; 
cst[prodim(l1, ts, ss)] := ss; 
end for; 
m:=0; for i in [1..1080] do if cst[i] ne [] 
then m:=m+l; end if; end for; Mm; 

Orbits (N121s); 


/x [12 1 8] x/ 


N1218:=Stabiliser(N121,8); 
SSS:={[12,1,8]}; SSS:=SSS°N; 
# (SSS) ; 
Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in M do 

if ts[12]xts[l]*ts[8] eq 

nxts [Rep (Seqq[i]) [1] ]*«ts[Rep (Seqq[i]) [2] ]*ts[Rep (Seqq[i]) [3]] 
then print Rep(Seqq[i]); 

end if; end for; end for; 

N1218s:=N1218; 


for g in N do if 12°g eq 11 and 1*g eq 1 and 8°g eq 8 then 
N1218s:=sub<N|N1218s,g>; end if; end for; 

for g in N do if 12°g eq 3 and 1*g eq 4 and 8°g eq 2 then 
N1218s:=sub<N|N1218s,g>; end if; end for; 

for g in N do if 12°g eq 7 and 1*g eq 1 and 8°g eq 6 then 
N1218s:=sub<N|N1218s,g>; end if; end for; 

for g in N do if 12°g eq 5 and 1*g eq 4 and 8°g eq 2 then 
N1218s:=sub<N|N1218s,g>; end if; end for; 

for g in N do if 12°g eq 7 and 1*g eq 9 and 8°g eq 6 then 
N1218s:=sub<N|N1218s,g>; end if; end for; 

for g in N do if 12°g eq 10 and 1*g eq 1 and 8°g eq 6 then 
N1218s:=sub<N|N1218s,g>; end if; end for; 

for g in N do if 12°g eq 12 and 1*g eq 4 and 8°g eq 6 then 
N1218s:=sub<N|N1218s,g>; end if; end for; 

for g in N do if 12°g eq 10 and 1*g eq 9 and 8°g eq 8 then 


18s:=sub<N 
g in N do 
18s:=sub<N 
g in N do 
18s:=sub<N 
g in N do 
18s:=s 
#N1218s; 


18s,9g>; 
12°g eq 
18s,9g>; 
12°g eq 
18s,9>; 
12°g eq 
18s,9>; 


en 
3 
en 


en 
5 
en 


T1218:=Transversal (N,N1218s 
for i in [1..#T1218] do 
ss:=[12,1,8]°T1218[i] 


la 
cst[prodim(l1, ts, ss)] := ss; 
end for; 
m:=0; for i in [1..1080] do if cst[i] 
then m:=m+l; end if; end for; Mm; 


Orbits (N1218s); 


/* [12,1,11] */ 
N12111:=Stabiliser(N121,11) 
SSS:={[12,1,11]}; Sss:=sss* 
# (SSS); 


Seqq:=Setseq(SSS) ; 
for i in [1..#SSS] 
for n in M do 

1f ts[12]xts[1]*ts[11] 


do 


eq 


d if; en 
and 1l*g 
d if; en 


d if; en 
and 1l*g 
d if; en 


); 


a 


N; 
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d for; 
eq 9 and 8°g eq 2 then 
d for; 


11 and 1*g eq 4 and 8°g eq 8 then 


d for; 
eq 9 and 8°g eq 2 then 
G--£0%; 


ne 


n«ts [Rep (Seqq[i]) [1] ]*ts[Rep (Seqq[i]) [2] ]*ts[Rep (Seqq[i]) [3] ] 


then print Rep(Seqq[i]); 
end if; end for; end for; 
N12111s:=N12111; 

for g in N do if 12°g eq 3 
N12111s:=sub<N|N121118s,g9>; 
for g in N do if 12°g eq 6 
N12111s:=sub<N|N12111s,9>; 
for g in N do if 12°g eq 7 
N12111s:=sub<N|N12111s,g9>; 
for g in N do if 12°g eq 8 
N12111s:=sub<N|N12111s,9>; 
for g in N do if 12°g eq 7 
N12111s:=sub<N|N12111s,9>; 
for g in N do if 12°g eq 8 
N12111s:=sub<N|N12111s,9>; 


and 1l*g 
end if; 
and 1l*g 
end if; 
and 1l*g 
end if; 
and 1l*g 
end if; 
and 1l*g 
end if; 
and 1l*g 
end if; 


eq 4 and 11°g eq 5 then 
end for; 
eq 5 and 11l°g eq 4 then 
end for; 
eq 1 and 11°g eq 10 then 
end for; 
eq 5 and 11°g eq 9 then 
end for; 
eq 9 and 11°g eq 10 then 
end for; 
eq 10 and 11°g eq 9 then 
end for; 


for g in N do if 12°g eq 12 and 1*g eg 4 and 
N12111s:=sub<N|N12111s,g>; end if; end for; 
for g in N do if 12°g eq 2 and 1*g eq 10 and 
N12111s:=sub<N|N12111s,g>; end if; end for; 
for g in N do if 12°g eq 2 and 1*g eq 11 and 
N12111s:=sub<N|N12111s,g>; end if; end for; 
for g in N do if 12°g eq 3 and 1*g eq 9 and 
N12111s:=sub<N|N12111s,g>; end if; end for; 
for g in N do if 12°g eq 6 and 1*g eq 11 and 
N12111s:=sub<N|N12111s,g>; end if; end for; 
#N12111s; N12111s; 

T12111:=Transversal (N,N12111s); 

for iin [1..#T12111] do 
ss:=[12,1,11]°T12111[i]; 

cst[prodim(l, ts, ss)] := ss; 

end for; 

m:=0; for i in [1..1080] do if cst[i] ne [] 


then m:=mt+1l; end if; 
Orbits(N12111s); 


end for; mm; 


je aes sass 


Relations to be proved by hand 


G<x,y,Z,W,V,t>:=Group<x,y,Z,w,v,t|x°2,y°2,2z7 


11*g eq 11 
11l*g eq l 
11l*g eq l 


l“*g eq 5t 


1l*g eq 4 


*/ 


2,w 2, 


v°3,Y° X=V, Z° X=Z,Z° Y=Z*W,W° X=W, W° Y=W, W Z=W,V° X=V "2, 


V°yV=V,V°Z=V,V w=v,t°2, (t,z*w), (t,x*wkv), (wev°>-1*t) 75, (x*t) 76, 


(y*xt) “3, (xxwet) 74, (K*z*yxt) 79>; 


£,G1,k:=CosetAction (G, sub<G|x,Vy,Z,W,V>) ; 


N:=sub<S|X,Y,Z,W,V>; 
IN:=sub<G1|f(x),f(y),f£(z),f£(w),f(v) >; 
M:=sub<G1/f(x),f(y),f£(z),f(w),f(v), 

£ (tex*xyxwetxv -Letxyxv > -lxt) >; 


1; 


S:=Sym(12); 

X:=S!(1, 2) (3, 5) (4, 8) (6, 9) (7, 11) (10, 12); 
Y:=S!(1, 3) (2, 5) (4, 7) (6, 10) (8, 11) (9, 12); 
Z2=S:!9(35- 5) Che LO) (Li, L2):3 

W:=S!(1, 2) (3, 5) (4, 6) (7, 10) (8, 9) (11, 12) 
VirqSinch,. -45. -9) (2) by. “8-03. >. LZ) (5. 205-3); 


’ 


’ 


Ua 


’ 


then 


then 


then 


nen 


then 
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OANA BWN PE 
Il 


NN:=G1; 


Sch:=SchreierSystem(G, sub<G|Id(G)>); 
ArrayP:=[Id(NN): 


for i in 


P:=[Id(NN): l 
1..#Sch[ 


for j in 
ape 
act 
it 
Le 
ie 
if 
if 


end for; 


ltseq 
Eltseq 
Eltseq 
ltseq 
ltseq 
Eltseq 
Eltseq 


[2..#NN] 
in 


[ 

(Sch [i] 
(Sch [ 
(Sch [ 
(Sch [ 
(Sch [ 
(Sch [ 
(Sch [ 


ee oe oe 


PP:=Id(NN); 


for k in 
PP:=PPx*P[k]; 


[1..#P] 
end 


ArrayP[i]:=PP; 


end for; 


/x [12] 


*/ 


Pe 


) 
) 
) 

I 
) 
) 
) 


ae 9k 


do 


}] 


Ly. Ld. Ly. Cy. ty. ty. i. 


LO 


for g in M do for hi 


then 


ts[12]x«ts[1] 
"true"; 


eq gx(ts 
break; en 


for g in M do for hi 


then 


ts[12]«ts[3] 
Weeue: 


eq gx(ts 
break; en 


n [1..#G]]; 


do 
eq 
eg 
eq 
eq 
eq 
eq 
eq 6 th 


th 
th 
th 
th 
th 


aes WN FR 


’ 


d if; 


d if; 


-5 then P 


--#Sch[i]]]; 


eH 
en 
en 
on 
en 


tw tu Uw DU 'U 


en P[ 


ete rr cede Deh es ee, A 


n IN do if 
[12] *«ts[1])7*h 


end for; 


n IN do if 
[12]«ts[1])7h 


end for; 


end for; 


end for; 


aaaadaa 


wt 
aipiee 
algicges 
die 
TE? 
end if; 
if; 
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/x [12 1] x/ 


for g in M do for h in IN do if 
ts[12]*ts[l]*ts[2] eq g*(ts[12]) 7h 
then true; break; end if; end for; end for; 


for g in M do for h in IN do if 
ts[12]*ts[1l]«ts[3] eq g*e(ts[12]*ts[1])7h 
then true; break; end if; end for; end for; 


for g in M do for h in IN do if 
ts[12]*ts[1]«ts[9] eq g*e(ts[12]*ts[1]) 7h 
then true; break; end if; end for; end for; 


for g in M do for h in IN do if 
ts[12]*ts[1l]*ts[11] eq g*(ts[12]*ts[l]*ts[8]) 7h 
then true; break; end if; end for; end for; 


/x [12 1 8] «x / 


for g in M do for h in IN do if 
ts[12]*ts[1l]*«ts[8]*«ts[1] eq g*(ts[12]«ts[1l]*ts[8]) 7h 
then true; break; end if; end for; end for; 


for g in M do for h in IN do if 
ts[12]*ts[1l]«ts[8]«*«ts[3] eq g*(ts[12]«ts[1l]*ts[11]) 7h 
then true; break; end if; end for; end for; 


/x [12 1 11] x/ 


for g in M do for h in IN do if 
ts[12]*ts[1l]*ts[ll]*«ts[2] eq g*(ts[12]«ts[l]*ts[8]) 7h 
then true; break; end if; end for; end for; 
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Appendix D 


Magma Code for Extension 


Types 


D.0.1 Direct Product G = $3 x PGL2(7) x Ss 


G<x,y,Z,W,u,t>:=Group<x, y,Z,w,u,t|x°2,y°2,Z2°2,w 2,U°3,Yy X=Yy, 
Z°X=Z,Z° Y=Z*wW,W X=W,W Y=W, W° Z=w,U X=U°2,U y=U, U Z=U, 
u°w=u,t72, (t,z*w), (t,xX*w*u), (x*xw*et) 76, (z*y*xuxt) 6, (x*t) 73>; 


£,G1,k:=CosetAction (G, sub<G|x,y,Z,W,U>) ; 
CompositionFactors (Gl); 


NL:=NormalLattice (G1); 
IsIsomorphic (Sym(3),NL[3]); 
gq, ff:=quo<Gl|NL[3]>; 


NL1:=NormalLattice(q) ; 
IsIsomorphic (NL1[5],PGL(2,7)); 


B:=DirectProduct (PGL(2,7),Sym(3)); 
Islsomorphic(E,NL[17]); 


ql, f£:=quo<G1|NL[17]>; 


ql; 
Islsomorphic(ql,Sym(5)); 


E1l:=DirectProduct (E,Sym(5)); 
if IsIsomorphic(E1,G1) then true; end if; 
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D.0.2 Central Extension G = $3 x PGL2(7) x Ss 


G<x,y,Z,w,t>:=Group<x,y,Z,w,t|x°2,y°2,Z2°3,w 2,y° xX=y*w, 
Z°X=Z,Z° Y=Z,W X=W,W y=w,wW z=w,t "2, (t,y*w), 
(y*zZ*t°x) 73, ((w*z>-1) *t) 74, (x*xt) 6, (x*y*zx«t) °6>; 


£,G1,k:=CosetAction (G, sub<G|x,y,Z,W>); 
CompositionFactors (Gl); 
H<a>:=Group<a|a*2>; 


NL:=NormalLattice (G1); 


ly; 


gq ,ff£f:=quo<G1|NL[2]>; 
NLgq:=NormalLattice(q); 


H:=PGU (4,2); 


K<b,c>:=Group<b,c|b*3,c76, 

(6° 1 Aveo k DoS) e -eta1) 2, 

(bob * C72 * b°-1 * c*-2)72, 

C°>3 -& bee H3. ek ble eB ek Bb £-e73 & bos, 

(c*-1 * b*-1)79, 

(Oirk GSS 2. & bP he -e@T SL, RB er EPS Se Bee oe. GOH 1) AAS 
£2,K2,k2:=CosetAction (K, sub<K|Id(K) >); 
s,t:=IsIsomorphic(K2,NLq[2]); 


T:=Transversal(Gl,NL[2]); 
B:=t (£2 (b)); 
C:=t (£2 (c)); 


for i in [1..#T] do if ff(T[i]) eq B then i; break; 
end if; end for; 
for i in [1..#T] do if ff(T[i]) eq C then i; break; 
end if; end for; 


for d in NLq[3] do if Order(d) eq 2 and d 
notin NLg[2] and NLg[3]leq sub<q|NLgq[2],d> 
then D:=d; break; end if; end for; 


B:=ff(B); 


C:=ff£(C); 
N:=sub<q | 


B,C>; 


NN<b, c>:=Group<b,c|b°3,c76, 


(b*xc*2*b*-1lx*xc*-2) 72 


(c*-1lx*b*-1) 79, (b*c*-2*«b*-1Lkec*-lkeb«c*-1l*b*-1l*c*-1) 72>; 
Sch:=SchreierSystem (NN, sub<NN|Id (NN) >); 
ArrayP:=[Id(N): i in [1..#N]]; 
for i in [2..#N] do 
=[Id(N): 1 in [1..#Sch[i]]]; 
for j in [1..#Sch[i]] do 
if Eltseq(Sch[i J) [3] eq 1 then P[j]:=B; end if; 
if Eltseq(Sch[i])[j] eq -1 then P[j]:=B*-1; end if; 
if Eltseq(Sch[i])[j] eq 2 then P[Jj]:=C; end if; 
if Eltseq(Sch[i])[j] eq -2 then P[j]:=C*-1; end if; 
end for; 
PP:=Id(N); 
for k in [1..#P] do 
PP:=PPx*P[k]; pe for; 
ArrayP[i]:=PP; 
end for; 
for iin [1..#N] do if ArrayP[i] eq B°D then print Sch[i 
end if; end for; 
Ce TD BOO Beas eel Doe eee ae bea, ae FST 
for iin [1..#N] do if ArrayP[i] eq C°D then print Sch[i 
end if; end for; 
bead £-G kb eee bt al ee 2k Bee Sl 4b 


/x (U(4,2) 2) 


Z<b,c,d>:=Group<b,c,d|b*3,c*6, 


7c —-3*b*«c*-3*b* 


(b * c72 * b°-1 * c°-2)°2, 


S38 Ube er SB. eb * 


(eT =]. & b*=1).° 9; 
(b * 
a*2 

b*d= 
ed=s ibe 


c* beer b 
—l*ecxbecxh”® 
£4,21,k4:=CosetAction(Z,sub<Z|Id(Z) 


lxc*2xbxc*-lxb>; 


>); 


(b*-1l*cxb*-1l*c*-1) 72, 
-lkc*3xb«c*3xb*- 


Pile Hee SD KO GSD) ae 2b 


=] * @°3 * bo * c73 ¥ b*= 


e7-2 * b*-1 * c*-1 * b * c*-1 * bD*-1 * c*=-1) 


(eo? =. bene: & bes ear) 


ee 


Sale ee ey She 


]; 


1; 
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s,t:=IsIsomorphic(Z1,q); 


/x Now, we form a Central extension among these elements. 


G<x,y,Z,w,t>:=Group<x,y,Z,w,t|x°2,y°2,Z2°3,w 2,y° xX=y*w, 
Z°X=Z,Z° y=Z,W X=W,W y=w,wW z=w,t "2, (t,y*w), 
(y*z*t°x) “3, ((w*z*-1) *t) “4, (x*xt) *6, (x*y*zx«t) *6>; 


£,G1,k:=CosetAction (G, sub<G|x,y,Z,W>); 
CompositionFactors (Gl); 


H<a>:=Group<a|a*2>; 


NL:=NormalLattice (G1); 
T:=Transversal(Gl1,NL[2]); 
q ,ff:=quo<Gl|NL[2]>; 


Z<b,c,d>:=Group<b,c,d|b°3,c°6, (b”-1 * c * b°-1 * c*-1) 72, 
(b * C72 * b°-1 * c*-2)72, 

COB ek be ek -COOH8 ke Del eee 3s eb ek G3 se brik; 

(c*-1 * b*-1)79, 

(b-* GC S20 & BT =1 € eoH=b & b & eo =1 & b°=T # -e7™=1) 72, 
d°2,b°d=c* b* cx b*-l * c *« b * C7-2 * b°-1 * co-l, 
c*d= b*-lxcrb*«crb*-1l*c*2*b*c*-1lxb>; 
£4,21,k4:=CosetAction(Z,sub<Z|Id(Z)>); 
s,t:=IsIsomorphic(Z1,q); 


for i in [1..#T] do if ff(T[i]) eq B then i; break; 


for i in [1..#T] do if ff(T[i]) eq C then i; break; 


for i in [1..#T] do if ff(T[i]) eq D then i; break; 


for? a in (10...) cde ai (C1 eB =L) "9 eq A“? sthen. 1; 
break; end if; end for; 


*/ 
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H<a,b,c,d>:=Group<a,b,c,d|b*3,c°6, (b”-1 * c * b°-1 * c*-1)72 


(bob * C72 * b°-1 * c*-2)72, 

@rS3- kw Be kee =30 4 bal #-E° Se be xe er Be bo SL, 

(c*-1 * b*-1)*9=a, 

(Oe er SD Bea & eT HL # be er & DTT & E7=1 72, 
d°*2,b°d=cx*b* cx b*-l * c * b * C7-2 * b°-1 * co -l, 
c°d= b*-l«xctrb*«crb*-1l*c*2*b*c*-1lx*b,a*2>; 
£4,H1,k4:=CosetAction (H, sub<H|Id(H)>); 
s,t:=IsIsomorphic(H1,G1); 


D.0.3 Semi-Direct Product 2? : (2? x 3) 


S:=Sym(12); 

X:=S!(1, 2) (3, 5) (4, 6) (7, 9) (8, 10) (11, 12); 
Y:=S!(1, 3) (2, 5) (4, 7) (6, 9) (8, 11) (10, 12); 
Z:=S!(1, 4, 8) (2, 6, 10) (3, 7, 11) (5, 9, 12); 
W:=S! (1, 2) (3, 5) (4, 7) (6, 9) (8, 12) (10, 11); 
U:=S!(1, 5) (2, 3) (4, 6) (7, 9) (8, 11) (10, 12); 
N:=sub<S|X,Y,2Z,W,U>; 


£,N1,k:=CosetAction(N, sub<N|Id(N)>); 


NL:=NormalLattice(N1); 

Center (N1) eq NL[6]; 

X:=[2,2]; 

IsIsomorphic (NL[6],AbelianGroup (GrpPerm, X) ); 


H<a,b>:=Group<a,b|a°2,b°2, (axb) 72>; 
£2,H2,k2:=CosetAction (H, sub<H|Id(H)>); 


gq, ff:=quo<N1|NL[6]>; 

IsIsomorphic (Alt (4),q); 
Q<c,d,e>:=Group<c,d,e|c*3,d°2,e°2,c°-1lxdxcxe, 
(dxe) “2,c*dxc*-lxdxe>; 
£3,03,k3:=CosetAction (Q, sub<Q|Id(Q)>); 
T:=Transversal (N1,NL[6]); 


s,t:=IsIsomorphic (Q3,q); 


for 2 in [lecdT] do-it ££(T[a)]) seq g.1 then 1; 
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end if; end for; 
/x* store as C x/ 


for iin [1..#T] do if ff(T[i]) eq q.4 then i; 
end if; end for; 


for iin [1..#T] do if ff(T[i]) eq q.5 then i; 
end if; end for; 


Generators (NL[6]); 


=N1!(1, 9) (2, 10) (3, 11) (4, 12) (5, 20) (6, 19) (7, 18) ( 
, 33) (14, 34) (15, 35) (16, 36) (21, 37) (22, 38) (23, 39 
47 


8, 17) 
) 
) 


A: 

(13 

(24, 40) (25, 44) (26, 43) (27, 42) (28, 41) (29, 48) (30, 

(31, 46) (32, 45); 

B:=N1! (1, 5) (2, 6) (3, 7) (4, 8) (9, 20) (10, 19) (11, 18) (12, 17) 
(138; 25). (14, (26).(155. 27)-4126,;. 28) (295 29) (22; 30) (23,7 34) 

(24, 32) (33, 44) (34, 43) (35, 42) (36, 41) (37, 48) (38, 47) 

(39, 46) (40, 45); 


CeaNd (D> 132 DINO, AAS Boy tS) AS Baya be Sates Shy Boy 
(Gye DOH BOI Tp DIG BIN 18, 28). 22105, 32 BT Gey. 34) 38) 

(11; 35, 39) (12, 36, 40) (17, 41, -45) (18, 42, 46) 

(19, 43, 47) (20, 44, 48 


’ 


) 
D:=N1! (1, 6) (2, 5) (3, 8) (4, 7) (9, 19) (10, 20) (11, 17) (12, 18) 
(13, 35) (14, 36) (15, 33) (16, 34) (21, 45) (22, 46) (23, 47) 
(24, 48) (25, 42) (26, 41) (27, 44) (28, 43) (29, 40) (30, 39) 


(Sib -38)(S2 57 S49) 

E:=N1!(1, 17) (2, 18) (3, 19) (4, 20) (5, 12) (6, 11) (7, 10) (8, 9) 
(13, 26) (14, 25) (15, 28) (16, 27) (21, 39) (22, 40) (23, 37) 

(24, 38) (29, 46) (30, 45) (31, 48) (32, 47) (33, 43) (34, 44) 

(35, 41) (36, 42); 


for i,j in [1..2] do if A*C eq A*7ixB°j then i,j; 
break; end if; end for; 
for i,j in [1..2] do if A°D eq A*ixB°j then i,j; 
break; end if; end for; 
for i,j in [1..2] do if A*E eq A*7ix*B°j then i,j; 
break; end if; end for; 


for i,j in [1..2] do if B°C eq A*ix*B°j then i,j; 
break; end if; end for; 
for i,j in [1..2] do if B°D eq A*“ixB°j then i,j; 
break; end if; end for; 
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for i,j in [1..2] do if B°E eq A*ixB°j then i,j; 
break; end if; end for; 


LO {d.,°) 2N 2] do if C°3 eq A*ixB°j then i,j; 

break; end if; end for; 

for i,j in [1..2] do if D°2 eq A*ixB*j then i,j; 

break; end if; end for; 

for i,j in -2] do if E*°2 eq A*ixB°j then i,j; 

break; end if; end for; 

for i,j in [ 2] do if C°-1*D*C*E eq A*~i*xB*j then i,j; 
break; end if; end for; 

for i,j in [1..2] do if (D*E)*°2 eq A°i*B*4j then i,j; 
break; end if; end for; 

for i,j in [1..2] do if C*D*C*-1*D*E eq A*”ixB*j then i,j; 
break; end if; end for; 


H<a,b,c,d,e>:=Group<a,b,c,d,e|a°2,b°2, (arb) “2, 
c°3,da°2,e°2,c°-1l*dxcxe, (dee) *2,c%*d*ec*-lkde, 
a°c=a,a°d=a,a° e=a,b* c=b,b*d=b,b*e=b>; 
£2,H2,k2:=CosetAction (H, sub<H|Id(H)>); 
IsIsomorphic (H2,N1); 

true 


D.0.4 Semi-Direct Product 2°: A; 


G<x,y,Z,W,u,t>:=Group<x, y,Z,w,u,t|x°2,y°2,Z2°3,w' 2,uUu°2,y X=y, 
Z°X=Z,Z° Y=Z,W X=W, W° y=W, W Z=U, U X=U, U Y=U, U Z=WeU, U W=uU, 
t°2, (t,x*yx*w), (t,yx*xu), (x*z*t) 75, (yxz>-l1let) 75, 
(x*xy*eUxzZ>-Lxt) 75>; 


£,G1,k:=CosetAction (G, sub<G|x,y,Z,W,U>) ; 
CompositionFactors (Gl); 


/*x isomorphism type <«/ 
NL:=NormalLattice (G1); 


for i in [1..#NL] do if IsAbelian(NL[i]) then i; 
end if; end for; 


g, ff:=quo<Gl|NL[5]>; 


FPGroup (q) ; 


X:=[(2,2,2,2,2,2,2,2]; 
E:=DirectProduct (Alt (5),AbelianGroup (GrpPerm, X) ); 
E,Gl); 


IsIsomorphic ( 


[x 2°8 x/ 
H<a,b,c,d,e,f,g,h>:=Group<a,b,c,d,e,f,g,h|a°2,b°2,c°2,da°2, 
e°2,£°2,9°2,h°2, (a,b), (a,c), (a, d), (a,e), (a, £), (a,g), (a,h), 


(b,c), (b, da), (b,e), (6, £), (b,g), (b,h), (c,d), (c,e), (c, £), (c,g), 
(d,e), (d,£), (d,g), (d,h), (e, £), (e,g), (e,h), (£,9), (f£,h), 


y 

7 
/x q = A_5 x/ 

724, 4S Groups | 23.4" By G1 18) 
(17 -1eqeit-1*j7-1) 72>; 


T:=Transversal(Gl,NL[5]); 


fE(T[3]) eq q.1; 
fEF(T[14]) eq g.2; 
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for iin [1..#T] do if ff(T[i]) eq q.2 then i; end if; end for; 


=G1!(2, 4) (3, 6) (7, 17) (10, 13) (15, 56) (18, 50) (19, 59) 

22, 38) (23, 29) (26, 41) (27, 32) (28, 31) (30, 68) (33, 156) 

36, 53) (37, 40) (39, 64) (42, 152) (43, 45) (44, 57) (46, 141) 
47, 117) (48, 86) (49, 52) (51, 89) (54, 171) (55, 58) (60, 113) 
61, 146) (62, 116) (63, (66, 102) (67, 69) (70, 80) (71, 77) 
73 78 
87 
96 


65) 
, 83) (74, 142) (76, 109) ( 
30) 


A 
( 

( 

( 

( 

( 

(87, 147) (88, 90) (91, (92, 98) (93, 167) (94, 105) (95,131) 
(96, 104) (97, 134) (99, 149) (100, 128) (101, 170) (103, 123) 
(106, 125)°(107, TION (211; 139) (124, 1adp(ias, 204) (118, 148 
(119;. 120) (121,. 126) (122, 133) (124, 132) (127, 168) (129;- 151 
(145, 160) (150, 169) (157, 182) (158, 159) (161, 181) (162, 164 
(168, PA8)(165,. 184). (1665. 165172, P9073, TST ay 178 
(175 P9I2)-(176; 193) (177, S5Ry 179% 195) (180,229) (183,218 
(194, 239) (196, 241) (198, 209) (199, 206) (202, 232) (203, 257 
(205, (DIS (B07, B11) (206, 24471210. B14): @1e- O46)(015, 2179 
(BUG; DOD) 4 BV9>. 983) (926,- DSO) (291, BAT) 4293). BSL) (204 2 B54 
(995.235) (226, 234) 1227, 255) (228, 237230; 236). (231, 240 
(233, 253) (238, 259) (242, 277) (243, 245) (249, 264) (252, 256 
(260, 282) (261, 268) (262, 290) (263, 271) (265, 269) (266, 270 
(267, 285) (272, 291) (273, 280) (274, 281) (275, 288) (276, 278 


154) (81, 136) (84, 138) (85,197) 
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(279, 289) (284, 286) (287, 296) (292, 299) (293, 297) (294, 305) 
(295, 298) (300, 304) (301, 303) (302, 307) (306, 312) (308, 315) 
(309, 313) (310, 320) (311, 314) (316, 319) (317, 318); 


:=G1!(5, 11) (7, 10) (8, 14) (13, 17) (15, 23) (18, 22) (19, 27) 
265. 36) (23% 55) (29% “3O) (3.0, 2-142) (3 ly. S8)(32y. 59) (335. 109) 
37, 49) (38, 50) (39, 131) (40, 52) (41, 53) (42, 134) (43, 67) 
44, 136) (45, 69) (46, 73) (51, 103) (54, 106) (57, 81) (60, 84) 


B 
( 

( 

( 

(63, oe 95) (65, 90) (66, 122) (68, 74) (70, 114) (71, 111) 
(72, 135) (75>. 137) (76; 156) (77;. 139) (78, 107) 179, 140) 

(80, 144) (82, 143) (83, 141) (85, 181) (89, 123) (91, 94) 

(99). D680 (93. T1696, 124).197;,. 159).(98~ 127) (99, 126) 

(100, 19 Sak, 129) (102, 133) (104, 132) (105, 130) 

(108, 153) (110, 154) (112, 155) (113, 138) (115, 158) (121, 149) 
(125; TIL (198s TIENTS, VED) (12S: 267) (150, 173s, 190) 
(157, 165) (159, 204) (160, 164) (161, 197) (163, 205) (166, 210) 
(169, ee 179) (174, 192) (175, 178) (177, 226) (180, 225) 
(182, 184) (183, 198) (185, 214) (190, 195) (194, 252) (196, 203) 
(199, ea P30): (206, 2ROVA20T » BUSI Ae0S. S51 DOe O18) 
(DEts OEPIADIS OBO) (OTS, OOS) (BiG BASTI219, BEs\qool,. 043) 
(D935. DAA\ (294, 239) (227 O38) N28. P5Aj 2295. O355(231,.°253) 
(230, B36). (233; B40) (294, O58) (259,. B56) al, 257) (242, 273) 
(245, 247) (249, 261) (255, 259) (260, 262) (264, 268) (265, 270) 
(266, 269) (267, 286) (271, 283) (272, 304) (274, 279) (275, 278) 
(276, 288) (277, 280) (281, 289) (282, 290) (284, 285) (287, 293) 
(291, 300) (292, 298) (294, 301) (295, 299) (296, 297) (302, 319) 
(303, 305) (306, 309) (307, 316) (308, 314) (310, 317) (311, 315) 
(312, 313) (318, 320); 


:=G1!(1, 187) (2, 62) (3, 117) (4, 116) (5, 137) (6, 47) (7, 148) 
) ( 25) (10, 167) (11, 75) (12, 20) (13, 93) (14, 82) 

15, 69) (16, 186) (17, 118) (18, 26) (19, 58) (21, 24) (22, 36) 
) ( 31) (28, 32) (29, 43) (30, 154) (33,156) (34, 200) 


35, 188) (37, 63) (38, 53) (39, 64) (40, 65) (41, 50) (42, 66) 


Cc 
( 

( 

( 

( ) 

(44, 139) (46, 141) (48, 87) (49, 88) (51, 89) (52, 90) (54, 91) 
(55, 59) (56, 67) (57, 111) (60, 113) (61, 119) (68, 78) (70, 80) 
(Tle BLY CI TOI Se BSI, WOT. (162. POSIT 136) (a, 158) 
(85, 164) (86, 147) (92, 98) (94, 106) (95, 131) (96, 170) 

(97, 133) (99, 149) (100, 193) (101, 104) (102, 152) (103, 123) 
(105, 125) (108, 112) (110, 142) (114, 144) (115, 184) 

(120). TAG (191, 126) (129, 134) (1942. 151) (19 T, 168) (128,. 176) 
(129, 132) (130, 171) (135, 140) (145, 161) (150, 173) (153, 155) 
(157, 159) (158, 182) (160, 181) (162, 197) (163, 218) (165, 204) 
(166, 220) 1169, T91)(172, TIS) (174, 198) 475, 178) (177; 256) 
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(180, 257) (183, 248) (185, 250) (189, 201) (190, 195) (194, 234) 
(196, 235) (198, 213) (199, 214) (202, 228) (203, 229) (205, 209) 
(206, 210) (207, 245) (208, 246) (211, 243) (212, 244) (215, 247) 
(216, 251) (217, 221) (219, 261) (222, 223) (224, 236) (225, 241) 
(226, 239) (227, 240) (230, 254) (231, 255) (232, 237) (233, 238) 
(242, 276) (249, 263) (252, 258) (253, 259) (260, 279) (262, 274) 
(264, 271) (265, 286) (266, 285) (267, 270) (268, 283) (269, 284) 
(272, 292) (273, 288) (275, 280) (277, 278) (281, 290) (282, 289) 
(287, 294) (291, 299) (293, 301) (295, 300) (296, 305) (297, 303) 
(298, 304) (302, 314) (306, 317) (307, 311) (308, 319) (309, 310) 
(312; 316) (313, -320), (315, 31:6) 7 


2=610! (1, 25). (2, 1I7) (3) 62) (4, 4705). 155) (6, 116) (7, 13) 
8, 140) (9, 187) (10, 17) (11, 112) (12, 186) (14, 79) (15, 56) 

16, 20) (18, 63) (19, 59) (21, 35) (22, 88) (23, 29) (24, 188) 

96, 37) (27, 32)4128,- 317130, 78) (33, 144): (34; 201) (36% 495 

38, 90) (39, 131) (40, 41) (42, 125) (43, 45) (44, 111) (46, 138) 
48, 61) (50, 65) (51, 103) (52, 53) (54, 97) (55, 58) (57, 139) 
60, 83) (64, 95) (66, 105) (67, 69) (68, 154) (70, 76) (71, 136) 
12; BOATS 113) Ci4p- 110) (IS, 1087.77, By (0; 109) (84,. 141) 
85, 204) (86, 146) (87, 119) (89, 123) (91, 133) (92, 168) (93,148) 
94, 102) (96, 132) (98, 127) (99, 126) (100, 150) (101, 151) 


D 
( 

( 

( 

( 

( 

( 

( 

( 

( 

(104, 124) (106, 152) (107, 142) (114, 156) (115, 197) (118, 167) 
(120; ATWO 1. TAS) (199 1305198, 69) 199, APOP(IS4,.. 191) 
(135, 143) (137, 153) (145, 182) (157, 160) (158, 161) (159, 181) 
(162, 184) (163, 198) (164, 165) (166, 212) (172, 174) (173, 193) 
(175, 195) (176, V91) (177, 237) (178, 190)-(179; 192) (180, 231) 
(183, 205) (185, 246) (189, 200) (194, 230) (196, 238) (199, 251) 
(209; 252) (203, 227) (206; 223) (207, 225.1208; 250) (209,. 243) 
GIO, “DEPOT. 947). (O18, Oey (a, BIS i915, 243) (O17, 245) 
(219, 270) (220, 244) (224, 226) (225, 253) (228, 258) (229, 240) 
(232, 256) (233, 235) (234, 254) (236, 239) (241, 259) (242, 289) 
(249, 286) (255, 257) (260, 278) (261, 267) (262, 275) (263, 265) 
(264, 284) (266, 283) (268, 285) (269, 271) (272, 298) (273, 281) 
(274, SROV(276, 282) (277, 279) (287, 301) (288,- 290).(291, 295) 
(292, 304) (293, 294) (296, 303) (297, 305) (299, 300) (302, 308) 
(306; S10)-(307, 315) (309, SLI (31ly Sley(s ies. 3201-12135, 318) 
(314, 319); 


B:=G1!(2, 3) (4, 6) (7, 13) (10, 17) (15, 43) (18, 88) (19, 28) 
22, 63) (23, 67) (26, 49) (27, 55) (29, 69) (30, 57) (31, 59) 

32, 58) (33, 144) (36, 37) (38, 65) (39,51) (40, 53) (41, 52) 

42, 133) (44, 68) (45, 56) (46, 138) (47, 116) (48, 119) (50, 90) 
54, 105) (60, 83) (61, 87) (62, 117) (64, 89) (66, 97) (70, 76) 
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VIO) CP 3y “WS ) (7T4ay. 136) (17 y 207) 18) 1397-18 05- 109) 
142) (84, 141) (85, 159) (86, 120) (91, 125) (92, 121) 
148) (94, 171) (95, 123) (96, 132) (98, 126) (99, 127) 

PEI CIOL, USL A1O2,: 134) 4103 137). (104, 124) 

136) (lit, 54) GAA, AS6y (125, DEL) (008,167) 

152) (128, 150) (129, 170) (145, 184) (146, 147) 

168) (157, 164) (158, 197) (160, 165) (162, 182) 

243) (166, 206) (172, 178) (173, 176) (174, 190) 

TTS) (LGT, 256) (180, 2279-4181, 204) (183,207) 

199) (191, 193) (192, 195) (194, 234) (196, 253) 

215) (202). 228) (203; 231) (205,. 2213.(208,. 276) 

27) (210 220), (24 SOUS (ON, BOS) (21S. BAT) 

250) (209; 264) (2995 944). (924, 236) (225, 238) 

239), (209; 255). (230). 254) (232; 237) (233; 241) 

259) (240,.° 257) (242) 278) (245, 248) (246,251) 

266) (252, 258) (260, 289) (261, 269) (262, 281) 

285) (264, 270) (265, 268) (267, 271) (272, 297) 

275) (274, 290): (276% -2TT) (279% 282) C80, 288) 

286) (287, 300) (291, 293) (292, 303) (294, 295) 

304) (298, 305) (299, 301) (302, 313) (306, 316) 

309) (308, 318) (310, 311) (312, 319) (314, 320) 

317); 
Lh QOL(e, ree S87) (4, 146) (5, 79) (6; 147) (7, 182) 

0 200) (1 LOA) (CL 1a) (12... -S5) (128, 96) ay 155) 
23); *( 24) (1 124) (18, 88) (19, 27) (20, 188) (21, 186) 
See abe 49) (28, 55) (29, 56) (30, 57) (31, 58) 
peal 0) (3 37) (38, 65) (39, 126) (40, 53) (41,52) 

1345 (43 oe 68) (45, 69) (46, 70) (47, 86) (48, 117) 
90) (51, 98) (54, 106) (62, Cae P27) C66; 122) 

HOV CEA, LST) e MAY Ae L3G) (25>. TSR ATS 138) 

107) (78, 139) ( eee PAB CER. TAS (5. ay 
109) (85, 184) (89, 92) (91, 94) (93, 170) (95, 149) 

152) (99, 131) (100, 191) (101, 167) (102, 133) (103, 127) 

130) (108, ey eer T54).(113) 156) (215, 164) 

POONA IS. META (1 O38. EO 1eS, TPIS 273) 

148) (145, 9) (150, 176) (157, 161) (158, 160) 

204) (163, 248) (185, 197) (166, 250) (169, 193) 

LIS) LTA, 5) (177, 236) (178, 179) (180, 241) 

182) (183, ce 220) (187, 189) (190, 192) 

228) (196, 229) (198, 209) (199, 210) (202, 234) 

935) (205; 213) (206;. 214) (207, 211) 4208, 212) 

21.7). (216, 223) (219, 266) (221, 247)4222, 251) 

256) (2257-257) (226; 232) (227% -233)- (230; 258) 


(231, 259) (237, 239) (238, 240) (242, 262) (243, 245) 
(244, 246) (249, 284) (252, 254) (253, 255) (260, 273) 
(261, 285) (263, 269) (264, 286) (265, 271) (267, 268) 
(Z7O} SE3V (272, BISV (VTA, 296) (275, 289) 77, 290) 
(278, 281) (279, 288) (280, 282) (287, 304) (291, 297) 
(292, 301) (294, 298) (295, 305) (296, 300) (299, 303) 
(302, 315) (306, 320) (307, 308) (309, 318) (310, 312) 
(311, 319) (313, 317) (314, 316); 

G2=611(5, 8) (7, D7) (10;,. T3)(11,. 14) (15, F9V-18, 36) 
(22) 86) 499, OP26, 23129). 32)130,. 10) (31,245) 
(33, 113) (37, 88) (38, 41) (39, 121) (40, 90) (42, 171) 
(44, 77) (46, 80) (49, 63) (50, 53) (51, 92) (52, 65) 
(54, 152) (55, 67) (56, 59) (57, 71) (58, 69) (60, 156) 
(64, 126) (66, 130) (68, 107) (70, 141) (72, 108) 

(73, 144) (74, 78) (75, 82) (76, 84) (79, 112) (81, 111) 
(83, 114) (85, 182) (89, 98) (91, 102) (93, 167) 

(94, 133) (95, 99) (96, 104) (97, 106) (100, 190) 
(101, 170) (103, 168) (105, 122) (109, 138) (115, 160) 
(17S). MAB (193 Py C124) 138) (ios. - Taal see 179) 
(129, 151) (131, 149) (135, 153) (136, 139) (137, 143) 
(140, 155) (142, 154) (145, 204) (150, 178) (157, 197) 
(158, 164) (159, 162) (161, 165) (163, 198) (166, 208) 
(169, 174) (173, 175) (176, 179) (177, 254) (180, 203) 
(181, 184) (183, 205) (185, 244) (191, 192) (193, 195) 
(194, 232) (196, 225) (199, 222) (202, 239) (206, 216) 
(207,. 221) (209, 248) (210, 251) (211,247) (212, 250) 
(913). DIB) (214) O23). (O15, B43) 1917, 245) (19, 261) 
(2205. 2AG\ (224, B58) (226; 228) (297. 2313-1029, 957) 
(230, 256) (233, 259) (234, 237) (235, 241) (236, 252) 
(238, 253) (240, 255) (242, 262) (249, 263) (260, 273) 
(264, 271) (265, 286) (266, 285) (267, 270) (268, 283) 
(269, 284) (272, 305) (274, 276) (275, 289) (277, 290) 
(278, 281) (279, 288) (280, 282) (287, 299) (291, 294) 
(292, 296) (293, 295) (297, 298) (300, 301) (302, 320) 
(303, 304) (306, 315) (307, 310) (308, 312) (309, 311) 
(813/814) (316). S175 (618. 819); 

H:=G1!(1, 12) (2, 4) (3, 6) (5, 143) (7, 124) (8, 137) 
(9, 16) (10, 96) (11, 82) (13, 104) (14, 75) (15, 59) 
(iss. 132) 018, 50) (19 56) (20, 167) (21; SH192,. 38) 
(23, 32) (24, 200) (25, 186) (26, 41) (27, 29) (28, 45) 
(30, 136) (31, 43) (33, 80) (35, 201) (36, 53) (37, 40) 
(39, 98) (42, 133) (44, 142) (46, 113) (47, 117) (48, 86) 
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52) (51, 
PAT) (6%, 
81) (70, 
154) (79, 
TACIT, 


126) (54, 


156) (71, 


103 
14 


wOnBYY~ 


(100, 

(10; 
LOS: 
145, 
159, 
167, 
180, 


174) (1 


146) (62, 


108) (83, 
25) (93, 


(1 


105) (55, 
116) (63, 
78) (72, 
84) (85, 
101) (94, 
02, 
15, 
eae 
148, 
161, 
169, 
183, 
194, 
207, 
214, 


(11, 
(24, 
(32, 


(46, 


, 2) (3, 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


9) (4, 
23) (13, 
61) (25,6 
82) (33, 
100) (40, 


81)-(55, 


105) 
159) 
169) 
175) (10 
152) ( 


15) (49; 
145) (63, 


(69 
(77, 
(90 


223% 
232 
23°95 


119) (136 


106, 


6:9) (57; 
65) (64, 


160) (87, 
Leh) 09555 


118, 129) 


74) (58, 


138) (76, 


130) (1 


67) 
92) (66, 


147) (88, 
168) 

07, 11 
VG, 


128, 178) 


35: 


150, 172) 


157, 


217) 


164, 


79) 
206) 
231) 
222) 
248) 
227) 
256) 
241) 


7S, 
188, 
198, 
209, 
216, 
2264 
E24, 


261, 


288) 


242, 
263, 


268, 
277, 
292, 
303, 
3.13% 


LZ) (3; 
26) (14, 27 
2) (28, 72) 
85) (34, 
101) (41, 
118) (50, 
135) (56, 
148) (64, 
155) (70, 
91) (80, 
170) (92, 
3, 176) (10 
113, 182) ( 
120, 
12%, 
eae 
156, 
183, 


15) (6, 


86) (35, 


271) 
282) 
2.9°5') 
306, 315) 
316, 317) 


) (17, 
(29, 


36) 


87) 
104) (43, 

124) (51, 
137) (57, 

150) (65, 
157) (71, 
160) (83, 

172) (94, 
7, 
Tia 


65) 


16) (7, 


75) (30, 


122) (109, 


P12. 
280, 
297, 
B07 5-32 
318, 31 


eS ise pre RE, Beh pe. ete Get Ge Gees es. boas, ee, Be ee et 


18) (8, 
(20, 47) 

42) 

(37, 93) 

108) (44, 
LOS EOs 
106) (58, 
151) (66, 
97) (73, 
161) (84, 
139) (95, 
181) 
116, 


T2335 
133, 


146, 


166, 
196, 


97) 
114) 
90) 


102) 


129) 


140) 


78) 


158) 
162) 


173) 


234 


235 


(198, 261) (199, 202) (203, 262) (205, 263) (206, 224) 
(207, 264) (208, 254) (209, 265) (210, 226) (211, 266) 
(212, 256) (213, 267) (214, 252) (215, 268) (216, 258) 
(BIT), 269) 4218. SIONIS20; D3 Ty (91 BIN (292). 239) 
(GDS. DB6V (B95, BIB\ (227 DIA) O28, S51y 29, 275) 
(230, 250) 4231, 276) (232, 244) (233, B77) (234, 246) 
(235, 278) (238, 279) (240, 280) (241, 281) (243, 283) 
(245, 284) (247, 285) (248, 286) (253, 288) (255, 282) 
(257, 289) (259, 290) (272, 302) (287, 306) (291, 307) 
(292, 308) (293, 309) (294, 310) (295, 311) (296, 312) 
(297, 313) (298, 314) (299, 315) (300, 316) (301, 317) 
(303, 318) (304, 319) (305, 320); 


:=G1!(1, 18, 15) (3, 48, 47) (4, 62, 61) (5, 85, 42) 
6; 87; 86) (7; 30, 100) (8; 115, 10219; 22% 19) 
10,81; 228)-1,. 145, 106) 412; 26, 230-13, 78-150) 
14, A5T¢ AOS) (16e 86 2A. TT 169) (207-49; 32) 
21, 40, 43) (24, 53, 31) (25, 63, 56) (28, 188, 52) 
29° 186,37). (B3¢ (10 Te 219484. 65 67) (855-41, 45) 
38, 58, 200) (39, 242, 166) (44, 175, 101) 


T 

J 

( 

( 

( 

( 

( 

( 

(46, 194, 249) (50, 69, 201) (51, 260, 185) 

(54, 82, 161) (55, 189, 90) (57, 174, 148) (59, 187, 88) 
(60, 202, 261) (64, 262, 199) (66, 79, 160) (68, 176, 104) 
(70, 224, 263) (71, 173, 96) (72, 158, 97) (73, 254, 264) 
(74, 192, 129) (75, 159, 130) (76, 226, 265) (80, 256, 266) 
( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 


83, 252, 267) (84, 258, 268) (89, 273, 206) (91, 153, 162) 
92, 274,210) (93, 139, 172) (94, 140, 197) (95, 275, 251) 
98, 276, 250) (99, 277, 244) (103, 278, 246) (107, 190, 118) 
(109, 232, 283) (110, 179, 170 


108, 181, 199 
112, V2, 159 
121, 288, 214 
126, 279, 220 
133; 137, 284 
1A, B28, 285 
156, 236, 269 
196, 213, 307 
907 . S11; 225 
218, 315, 238 
245, 319, 259 
294, 297, 304 


Lys TOS yp LS 


113, 234, 284) (114, 239, 271 6, 119, 146 


123, 281, 293).(194, 154, 291) (125, 155, 204 


127, 282, 208 132, 136, 193 


134, 143, 164) (135, 165, 171) (138, 230, 286 


( ) 
( ) 
( ) 
( ) 
( ) 
(149, 290, 216) 
( ) 
( ) 
( ) 
( ) 
( ) 


( 
( 
(131, 289, 212 
( 
( 
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198, 308, 231 
209, 312, 255 
221, 316, 240 
DASy B90, 257 
295, 296, 301 


) 
( ) ) 
( ) ) 
( ) ) 
( ) ) 
(142, 178, 167) (144, 237, 270) 
(163, 302, 180) (168, 280, 222) 
( ) ) 
( ) ) 
( ) ) 
( ) ) 
( ) 


for g,r,s,t,u,v,w,xX in [1..2] do if A°I eg 
A*°g*xB°r«C*s*D°t*E°ureF*v«GowteH*x then g,r,s,t,u,V,W, xX; 


end if;end for; 


fOr OF ,S; by 
A°q*B°rx*xC*sx 


end if;end for; 


FOr <q, Cy S;, ty 
A°q*xB°rx*«C*sx 


u,V,W,X in 


u,V,W,xX in 


end if;end for; 


FOr QO, £ypS4-C;7 
A°q*xB°rx*«C*sx 


u,V,W,xX in 


end if;end for; 


FOE G pF Sy by 
A°q*xB°rx*xC*sx 


u,V,W,xX in 


end if;end for; 


EOF 'Gipt 7 Sy Cy 
A°q*B > rx*xC*s*l 


u,V,W,xX in 


end if;end for; 


FORA, By Sy; 
A°q*xB°rx*xC*sx 


Uu,V,W,X in 


end if;end for; 


fer Oy, Fi, Sy by 
A°q*xB°rx*«C*sx 


u,V,W,X in 


= 


end if;end for; 


FORO Lys; Cy 
A°q*xB°rx*«C*sx 


u,V,W,xX in 


end if;end for; 


for Gg, rpsyt, 
A°q*xB°rx*xC*sx 
end if;end 


fOr -O).r, Sz by 
A°q*xB°rx*xC*sx 


end if;end for; 


LOE ‘Gib 7 SiC, 
A°q*xB°rx*«C*sx 


for - GQ, ,-S;c, 
A°q*xB°rx*xC*sx 


u,V,W,xX in 


= 


u,V,W,xX in 


= 


end if;end for; 


for OG, FS); 
A°q*xB°rx*xC*sx 


u,V,W,xX in 


= 


end if;end for; 


LOL -<O;, Gi S; C7 
A°q*xB°rx*xC*sx 


u,V,W,X in 


a 


end if;end for; 


£OF -Gpr,sSpty 


u,V,W,X in 


[1. 
D“t*E*uxF°v*eG°w*H*x 


eles 
D“t*E*uxF°v«eG°w*xH*x 


[ln 
D*t*E°ueF*v«xG°weH*x then g,r,s,t,u,V,W, xX; 


Lass 
D*t*E°urxeF*v*xG°weH*x then g,r,s,t,u,V,W, xX; 


Palvasid 
D*t*xEH°urxeF*v«xGoweH*x then g,r,s,t,u,V,W, xX; 


favs 
D*t*EH°utxeF*v«xG°weH*x then g,r,s,t,u,V,W, xX; 
end if;end for; 
ees 
D*t*EH°utxeF*v«xG°weH*x then g,r,s,t,u,V,W, xX; 


[1. 
D*t*EH°uteF*v*xG°weH*x then g,r,s,t,u,V,W, xX; 


[des 
D*t*EH°usxeF*v«xG°weH*x then g,r,s,t,u,V,W, xX; 


[les 


[lies 
D*t*EH°uxF*v*xG°w*xH*x then g,r,s,t,u,V,W, xX; 


‘Les 
D*t*EB°uexeF*v«xG°weH*x then g,r,s,t,u,V,W, xX; 


Ls 
D*t*EH°utxeF*v*xG°weH*x then g,r,s,t,u,V,W, xX; 


i 


2] 


eZ] 


2) 


421] 


2] 


al 


2 


uz 


2 


| 


a 


2] 


do if A°J eg 
then q,r,s,1 


do if B°I eq 


t,U,V,W,X; 


then q,r,Ss,1 


do if B°J eg 


do if C°I eg 


do if C°J eg 


do if D°I eq 


do if D°J eg 


do if E°I eq 


do if F°J eg 


do if G°I eg 


do if G°J eg 


do if H°I eq 


do if H°J eg 


C,U,V,W, X; 


u,V,w,X in [1..2] do if E°J eg 

D*t*EB°utxeF*v«xG°weH*x then g,r,s,t,u,V,W, xX; 
for; 

u,v,w,X in [1..2] do if F°I eg 


D*t*E°uteF*v*xG°weH*x then g,r,s,t,u,V,W, xX; 


236 


237 


A°gqxB°r«C*s*D°t*E°ureF*v«GowteH*x then g,r,s,t,u,V,W, xX; 
end if;end for; 


Z<a,b,c,d,e,f,9,h,1i,  3>:=Group<a,b,c,d,e,f,g,h,i, 3|/1i°2,3°3, 
a2, D°2,C 270 2ye* 2,2" 29° 2,h°2, (a,b), (a,c), (a, d), (a,e), 
(a,f), (a,g), (a,h), (b,c), (b,d), (b,e), (b, £), (6, g), (b,h), (c,d), 
(c,e), (c,f£), (c,g), (c,h), (d,e), (d, £), (d,g), (d,h), (e,£), (e,9), 
(e,h), (f£,9), (£,h), (g,h), (ix 3°-1) 7 He Ae aval, ac qebwdee, bib, 
b* j=axh, c°i=d,c* j=f,d° i=c,d* j=d,e° i=becrdxe,e° j=axbxdxfreh, 

f° i=cxdxfxh, f° j=h,g°i=g,g° j=cxdxexg,h i=h,h* j=c>; 
£,Z21,k:=CosetAction(Z,sub<Z|Id(Z)>) 

IsIsomorphic(2Z1,G1); 


S:=Sym(12); 

X:=S!(1, 2) (3, 5) (4, 6) (7, 9) (8, 10) (11, 12); 
Y:=S!(1, 3) (2, 5) (4, 7) (6, 9) (8, 11) (10, 12); 
Z:=S!(1, 4, 8) (2, 6, 10) (3, 7, 11) (5, 9, 12); 
W:=S!(1, 2) (3, 5) (4, 7) (6, 9) (8, 12) (10, 11); 
V Set 5) (2, 3) (4, 6) (7, 9) (8, 11) (10, 12); 
N:=sub<S|X,Y,2Z,W,V>; 


G<x,Y,Z,W,V,t>:=Group<x, y,Z,w,v,t|x°2,y°2,z° 3, 
w2,V°2,Y° X=V,Z X=Z,Z° Y=Z,W X=W,W Y=W, W Z=V,V°X=V, 

VO y=V,V> Z=Wev, V w=v,t°2, (t,x*yew), (t,y*v), (x*t) 3, (z*t) 75> 
£,G1,k:=CosetAction (G, sub<G|x,y,Z,W,V>) ; 


Ms:=MaximalSubgroups (G1); 
M:=Ms[7] ‘subgroup; 
NL:=NormalLattice(M); 


for i in [1..#NL] do if IsAbelian(NL[i]) then i; 
end if; end for; 


X:=[2,2,2,2]; 
IsIsomorphic (NL[4],AbelianGroup (GrpPerm, X) ); 


gq, ff:=quo<M|NL[4]>; 


K<a,b,c,d>:=Group<a,b,c,d|a*2,b°2,c°2,d°2, (a,b), (a,c), (a, a), 
(b,c), (b, da), (c,d) >; 
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Q<e,f,g,h>:=Group<e,f,g,h|e°4,£°3,g°2,h°2,gxe°2«h, 
(exf°-1)°2,e°-lxgxexh, f° -Lxgxfxh, f°-lLxe°-2xfxg>; 
£3,03,k3:=CosetAction (Q, sub<Q|Id(Q)>); 


T:=Transversal (M,NL[4]); 

for iin [1..#T] do if ff(T[i]) eq q.1 then i; 
end if; end for; 
T[4]; 

for i in [1..#T] do if ff(T[i]) eq q.2 then i; 
end if; end for; 
T(2]; 

for iin [1..#T] do if ff(T[i]) eq q.3 then i; 
end if; end for; 
TLV]; 

for iin [1..#T] do if ff(T[i]) eq q.4 then i; 
end if; end for; 

Ee fe] 
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Pop OB BB 
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for g)r,s,t in [0..1] -do.if ATE 

eq A°q*B°r*xC*s*D°t then q,r,s,t; end if; 
end for; 
for g,r,s,t in [0..1] do if A°F 
eq A°q*B°rxC*s*D°t then q,r,s,t; end if; 
end for; 
for q,r,s,t in [0..1] do if A°G 

eq A°q*B°rxC*s*xD°t then q,r,s,t; end if; 
end for; 
for g,r,s,t in [0..1] do if A°H 
eq A°q*xB*°r«C*s*xD*t then q,r,s,t 
end for; 

for g,r,s,t in [0..1] do if B°E 

eq A°q*B°rxC*s*D°t then q,r,s,t; end if; 
end for; 

for g,r,s,t in [0..1] do if B°F 


end if; 


~e 


eq A°q*xB*r«C*>sxD7*t 
end for; 


foro, r,s, bs an. [03.4 


eq A°q*xB°r*xC*s*D*t 
end for; 


£Or™.G7.Ey sy. in. [Ove 1 


eq A°q*xB*r«C*>sxD*t 
end for; 
For Gras; t. an. 0. 
eq A°q*B*r«C*s*xD*t 
end for; 


FOr Gj, S,t an WLO%. 


eq A°q*xB*>r«C*sxD*t 
end for; 


LO AG, ip Sy t. ane if Ofek 


eq A°q*xB*r«C*>sxD*t 
end for; 

FOr Or) Syt ain: Jf-O:, 
eq A°q*xB*r«C*sxD*t 
end for; 
for.g,4,s,;t an, [0 
eq A°q*B*r«C*s*xD*t 
end for; 

FOR C7 Sy. can* “PON 
eq A°q*xB°>r«C*sxD*t 
end for; 

FOr cG ri Siyt in: (0. 
eq A°q*xB*r«C*sxD*t 
end for; 

FOr G,F Ss, ban [0s 
eq A°qxB*r«C*>sxD*t 
end for; 


FOr. GA r Set an |POl cL 


eq A°qxB°r*«C*sxD*t 
end for; 


for GF, Ss, an, if0...1 


eq A°q*xB*>r«C*>sxD*t 
end for; 
EOP Oy. Sy te ame (sO). 
eq A°qxB*>r«C*>sxD*t 
end for; 
FOr OG, ris. an: [0 


then q,r,s,t; 


] 


] 


then q,r,s,t; 


oils] 
then q,r,s,t; 


] 


] 


then q,r,s,t; 


1] 
then q,r,s,t; 


el] 
then q,r,s,t; 


‘ek ] 
then q,r,s,t; 


el] 
then q,r,s,t; 


el] 
then q,r,s,t; 


] 


] 


then q,r,s,t; 


ell] 
then q,r,s,t; 


ol] 


do if B’G 


then q,r,s,t; 


do if B°H 


do if C°E 


do if C°F 


then q,r,s,t; 


do if C°G 


do if C°H 


do if D°E 


do if D°F 


do if D°G 


do. if. D°H 


do if E*4 


ea 


then q,r,s,t; 


dos TE 3 


do: LEG" 2 


do if H°2 


end 


end 


end 


end 


end 


end 


end 


end 


end 


end 


end 


end 


end 


end 
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ae 
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abs Be 
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Ask 3 
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eq A°q*B°rxC*s*D°t then q,r,s,t; end if; 
end for; 
for g,r,s,t in [0..1] do if G*E°2x*H 

eq A°q*xB°r*xC*s*D°t then q,r,s,t; end if; 
end for; 
£or=q). Fy syt in. (Oe...) sdo:. Biv (EAP =T) “2 
eq A°q*B°rxC*s*D°t then q,r,s,t; end if; 
end for; 
for g,r,s,t in [0..1] do if E°-1*G*E*H 
eq A°q*B°r*xC*s*xD°t then q,r,s,t; end if; 
end for; 
for g,r,s,t in [0..1] do if F°-1*G*F*H 
eq A°q*B°rxC*s*D°t then q,r,s,t; end if; 
end for; 
for g,r,s,t in [0..1] do if F°-1*E*-2x«Fx«G 
eq A°q*B°r*xC*s*D°t then q,r,s,t; end if; 
end for; 


Z<a,b,c,d,e,f,g,h>:=Group<a,b,c,d,e,f,g,h|a°2,b°2, 

c°2,0°2, (a,b), (a,c), (a, d), (b,c), (b, da), (c,d) ,e° 4=c, 

f° 3=axb«cxd,g°2,h°2,gre°2xh, (exf*-1) “2=bxecxd, 
lxgrexh=c, f°-legxfxh, f°-lxe*-2*fxg=b«crd, 

a”~e=axb*ec,a° f=axd,a° g=axd,a~h=axc, 

b*°e=bx*cxd,b* f=b*«cx«d,b* g=b*cx*«d, b*h=bx«d, 

c°e=c,c° f=crd, c° g=c,c*h=c, 

d*e=cx*d, d* f=c, d° g=d, d* h=d 

a 

£4,24,k4:=CosetAction(Z, sub<Z|Id(Z)>); 


IsIsomorphic (Z4,M); 
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